Запишите команду генерации случайного числа от 0 до 51.

ответ:

var n, i, x: integer;

begin

    randomize;

    n : = random (7) + 5;

    for i : = 1 to n do begin

        x : = random (100) - 50;

        write (x: 5)

    end;

readln

end.

отметь как 5 звезд, нажми на и выбери как лучший ответ!

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;