Предмет: Информатика, автор: ivankovalenya2005

помните решить 4 задание , срочно!!!​

Приложения:

Ответы

Автор ответа: gfhjkmgfhjkm20
1

Ответ:

uses GraphABC;

procedure kvadrat(x,y:integer);

var i:integer;

begin

for i:=1 to 6 do

begin

Rectangle (x,x,y,y);

x:=x+25;

y:=y-25

end

end;

var x,y:integer;

begin

SetWindowWidth(400);

SetWindowHeight(400);

SetPenWidth(2);

x:=50;

y:=350;

kvadrat (x,y)

end.

Похожие вопросы
Предмет: Українська література, автор: Аноним
Предмет: География, автор: popovicv419
Предмет: Биология, автор: Ленка7553