Question

Пожалуйста помогите решить задачу cif7
PascalABCnet
(Uses Robot)
​

Answer 1

Ответ:

uses Robot;

begin

Task('cif7');

while FreeFromRight do

begin

right;

if FreeFromUp then

begin

up;

paint;

down

end;

if FreeFromDown then

begin

down;

paint;

up

end

end

end.

Объяснение:

• цикл с предусловием (while FreeFromRight do) - для движения вправо
• 1 неполный условный оператор (if FreeFromUp then) - для закрашивания клеток вверху
• 2 неполный условный оператор (if FreeFromDown then) - для закрашивания клеток внизу