Question

изобразите графически в паскале

Answer 1

Ответ:

uses graphabc;

var i:integer;

begin

SetPenWidth(2);

for i:=7 to 9 do

rectangle (10*i,110-10*i,10*i+10,-20+10*i);

rectangle(100,50,170,40);

for i:=20 downto 18 do

rectangle (10*i,-160+10*i,10*i-10,250-10*i);

end.