2. стрелочка находится в правом верхнем углу, направление - вниз. куда
попадет и будет направлена стрелочка после выполнения алгоритма?
нач
процедура прогулка
поворот
пока впереди не стена
поворот
нц
поворот
прыжок
делай прогулка кц
поворот
конец процедуры
делай прогулка
поворот
кон
а) левый нижний угол, направление - вправо
б) левый верхний угол, направление - вниз
в) левый нижний угол, направление - вниз
г) левый верхний угол, направление - вверх​

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.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.