Question

В системе программирования Pascal ABC выполните проверяемое задание If2 для исполнителя робот( закрасить клетки около стен). Расположение стен на поле может быть разным.

Answer 1

uses Robot;

begin

 Task('if2');

Paint;

Up; if WallFromUp then Paint; Down;

Right; if WallFromRight then Paint; Left;

Down; if WallFromDown then Paint; Up;

Left; if WallFromLeft then Paint; Right;

end.