Uses robot;
Begin
Task('cc13') ;
дайте ответ


Uses robot; Begin Task('cc13') ; дайте ответ

cherryyy777 cherryyy777    3   21.12.2020 19:17    11

Ответы
Spale4ik Spale4ik  20.01.2021 19:17

Uses robot;

var i,j,k,a,b:integer;

Begin

Task('cc13');

a:=12; b:=10;

for i:=0 to 3 do

begin

for j:=0 to a do right;

a:=a-2;

Down;

for k:=0 to b do left;

b:=b-2;

Paint;

Down;

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика