Question

Нарисуйте пожалуйста Ъ в PaskalABC.
Только букву (можно не объёмную)

Answer 1

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.