Запишите команду генерации случайного числа от 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 звезд, нажми на и выбери как лучший ответ!

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

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.