Question

в системе программирования Pascal ABC выполните проверяемое задание cif2 для исполнителя робот (закрасить клетки, у которых сверху или снизу есть стена) (рис. 3.46). Положение стен и длина коридора могут быть различными

Answer 1

Ответ:

uses Robot;

begin

Task('cif2');

while FreeFromRight do

begin

if WallFromUp or WallFromDown then paint;

right

end;

if WallFromUp or WallFromDown then paint

end.