Предмет: Информатика,
автор: ivankovalenya2005
помните решить 4 задание , срочно!!!
Приложения:

Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Астрономия,
автор: Vana85
Предмет: Українська література,
автор: Аноним
Предмет: География,
автор: popovicv419
Предмет: Биология,
автор: Ленка7553
Предмет: История,
автор: q23anikanoff