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

Question

Информатика

Евстрат

25 января, 12:22

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

+3

Ответы (1)

Знаете ответ на вопрос?

Степаныч · Answer 1

Так?

uses Robot;

begin

Task ('if1') ;

right;

if WallFromUp then

begin

down;

right;

up;

end;

if wallfromdown then

begin

up;

right;

down;

end;

paint;

end.