Question

Создайте поле размером 7 на 7. Составьте программу, в результате которой робот закрасит диагональные и вертикальные клетки поля. Исходное положение Робота и результат выполнения программы показаны на рисунке 3.34
Помогите пожалуйста, срочно нужно ​

Answer 1

Ответ:

uses Robot;

begin

Field(7,7);

for i:integer:=1 to 3 do

begin

left;

up

end;

paint;

for i:integer:=1 to 6 do

begin

right;

down;

paint

end;

for i:integer:=1 to 6 do left;

for i:integer:=1 to 6 do

begin

paint;

up;

right

end;

paint

end.

Объяснение:

картинка