Question

В системе программирования Pascal ABC выполните проверяемое задание p11 и p12 для исполнителя робот( закрасить клетки)

Answer 1

Ответ:

Задание 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.