Запишите буквами путь, который пройдет Робот, выполнив алгоритм для данных обстановок. Начальное положение Робота - клетка с буквой Н.
Важно. Пусть записывайте русскими буквами начиная с начального положения Робота, без пробелов
Путь:
Нц пока справа свободно
Вправо
Кц
Нц пока сверху свободно
Вверх
Кц
Нц пока слева свободно
Влево
Кц
Нц пока слева стена
Вниз
Кц
​

program rrr; uses crt; const n=9; type massiv=array[1..n]of real; var a: massiv; max,sr: integer; procedure vvod(var x: massiv); var i: integer; beginwriteln('wwedite massiv'); for i: =1 to n doreadln(x[i]); end; procedure vivod(x: massiv); var i: integer; beginfor i: =1 to n dowrite(x[i]: 6: 2,' '); end; procedure sred_ar_i_max(x: massiv,var sr,max: real); var sum: real; i: integer; begins: =0; for i: =1 to n doif x[i]> 0 then s: =s+x[i]; end; sr: =s/n; for i: =1 to n doif (x[i]> 0) and max< x[i] then max: =x[i]; end; vvod(a); clrscr; vivod(a); sred_ar_i_max(a,sr,max); writeln('max=',max: 6: 2,'srednee arifmet=',sr: 6: 2); readln; end.

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.

var s,a,i: real;

begin

  repeat

      writeln("вес следущего пасажира kg");

      read(a);

      s: =s+a;

      if s< 8000 then

          i: =i+1;

  until s> =8000

  writeln(i);

end.

var b,a,i: real;

begin

  read(a,b);

  repeat

      a: =a+a*0.03;

      i: =i+1;

  until a> =b

  writeln(i);

end.

var i,s: integer;

begin

  for i: = 1900 to 1999 do begin

        s: =s+365;

        if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then

            s: = s+1;

  end;

  writeln(s);

end.