Задача 13 Урок 15

Задача 13 Урок 15

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

var N: integer;
    res: string;

function SS(N: integer): string;
var k, intQ, min, max: integer;
    w, b, strQ: string;
begin
  b := '+-*';
  min := 1;
  max := 100;
  randomize();
  for k := 1 to N do
    begin
      intQ := random(max - min + 1) + min;
      str(intQ, strQ);
      if(k < N) then
        w:= strQ + ' ' + b[Random(Length(b))+1]  + ' ' + w
      else
        w:= w + strQ;
    end;
  result:= w;
end;

begin
  writeln('vvedi chislo');
  readln(N);
  res := SS(N);
  write(res);
  readln();
end.