В системе программирования Pascal ABC выполните проверяемое задание p11 и p12 для исполнителя робот( закрасить клетки)
Ответы
Ответ дал:
0
Ответ:
Задание p11
uses Robot;
procedure Punktir;
begin
var i:integer;
for i:=1 to 7 do
begin
paint;
right;
right
end;
for i:=1 to 14 do left;
down;
down
end;
var i:integer;
begin
Task('p11');
for i:= 1 to 5 do Punktir
end.
Задание p12
uses Robot;
procedure Punktir;
begin
var i:integer;
for i:=1 to 7 do
begin
paint;
right;
right
end;
down;
for i:=1 to 7 do
begin
left;
paint;
left
end;
down
end;
var i:integer;
begin
Task('p12');
for i:= 1 to 5 do Punktir;
up;
right
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад