Ответы
Ответ дал:
0
PascalABC.Net
uses graphABC;
var i,d:integer;
begin
setwindowsize(420,420);
centerwindow;
d:=50;
for i:=1 to 9 do
begin
line(10,10+(i-1)*d,410,10+(i-1)*d);
line(10+(i-1)*d,10,10+(i-1)*d,410);
end;
setbrushcolor(clRed);
rectangle(10+1*d,10+1*d,10+2*d,10+(1+1)*d);
for i:=1 to 6 do
rectangle(10+2*d,10+i*d,10+3*d,10+(i+1)*d);
for i:=1 to 3 do
begin
rectangle(10+(i+2)*d,10+3*d,10+(i+3)*d,10+4*d);
rectangle(10+(i+2)*d,10+6*d,10+(i+3)*d,10+7*d);
end;
for i:=1 to 2 do
rectangle(10+5*d,10+(i+3)*d,10+6*d,10+(i+4)*d);
end.
Приложения:
![](https://st.uroker.com/files/434/4343b0e649b5245390e0241722a3ac7f.png)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад