Для исполнителя Робота написать алгоритм, который закрасит все клетки по периметру поля...

Question

Для исполнителя Робота написать алгоритм, который закрасит все клетки по периметру поля 5*5 клеток.

---

---

Answer 1

Uses robot;varx:integer;beginfield(5,5);up;up;paint;right;paint;right;paint;for x:=1 to 4 dobegindown;paint;end;for x:=1 to 4 dobeginleft;paint;end;for x:=1 to 4 dobeginup;paint;end;right;paint;end.

Comments

uses robot;
var
x:integer;
begin
field(5,5);
up;
up;
paint;
right;
paint;
right;
paint;
for x:=1 to 4 do
begin
down;
paint;
end;
for x:=1 to 4 do
begin
left;
paint;
end;
for x:=1 to 4 do
begin
up;
paint;
end;
right;
paint;
end.

---

Спасибо

---

не за что