Для стартовой обстановки, изображеннойна рисунке, написана программа. Робот находится слева от стены. Высота стены и расстояние до нее любое. Робот должен обойти стену и закрасить клетки с противоположной стороны стены. Ниже дана программа без шестой стоки. Какую команду нужно прописать в этой строке, чтобы программа работала верно?

нач

нц пока справа свободно

вправо

кц

нц пока не справа свободно

.

кц

вправо; вверх

нц пока не слева свободно

закрасить;вверх

кц

кон

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

var m1,m2,v1,v2: real;

begin

  read(m1,m2,v1,v2);

  if m1/v1 > m2/v2 then writeln('pervoe')

  else writeln('vtoroje');

end.

var a,b: integer;

begin

  read(a,b);

  writeln('a delitel b - ', a mod b=0);

  writeln('b delitel a - ', b mod a=0);

end.