Question

Составьте программу для рисования домик. Паскаль Abc​

Answer 1

Ответ:

uses graphabc;

begin

setpenwidth(3);

moveto(100,100);

lineto(200,50);

lineto(400,50);

lineto(500,100);

rectangle (100,100,500,300);

line(200,50,300,100);

line(300,100,300,300);

setbrushcolor(clgray);

rectangle(150,150,250,250)

end.