Uses GraphABC;
Var x,r,y:integer;
Procedure Kvadrat;
begin
rectangle(x,y,x+r,y+r);
end;
begin
SetWindowSize(600,100);
setbrushstyle(bsclear);
y:=100; x:=100;
r:=25;
while r<300 do
begin
Kvadrat;
r:=r+25
end;
End.
как из этого сделать чтобы маленький квадрат был в центре ?

SmolentsevaMasha    3   03.03.2020 02:33    2