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.

Answer 2

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.

Answer 3

Спасибо

Answer 4

не за что