1. начальное состояние: исполнитель находится в нижнем правом углу и смотрит вверх. где будет исполнитель после выполнения следующих программ? а) пока впереди не край повторять нц прыжок кц поворот поворот пока впереди не край повторять нц прыжок кц б) пока впереди не край повторять нц прыжок поворот прыжок поворот поворот поворот кц

в первом случае, если я не ошибаюсь, исполнитель вернётся на   изначальное место.

во втором всё зависит от размера поля. если не сложно, напиши в лс. а так должен оказаться в противоположном углу. он пойдёт квадратиками вверх влево.

мало данных для главное - размер пробоины и размер листа

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.