Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом...

Question

Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны.

---

Answer 1

Var x:integer;
begin
paint;
for x:=1 to 5 do
begin
left;
paint;
end;
for x:=1 to 4 do
begin
down;
paint;
end;
for x:=1 to 2 do
begin
right;
paint;
end;
for x:=1 to 3 do
begin
up;
paint;
end;
end.

Comments

Брат,ты можешь по-русски написать?

---

И там нужно использовать исполнителя робот,и команда тип пока сверху стена и т.д

---

это программа на паскале,если даже нужно на русском,перевести не сложно

---

Мужик ты понимаешь что мне нужно через кумир

---

Сделай пж

---

И у меня в триместре 5