Question

Напишите программу на паскале. Присылайте не файлом.

Answer 1

                                            PascalABC.NET

uses GraphABC;

procedure Figure(x,y:integer);

 begin

   setpenwidth(2);

   setbrushcolor(clwhite);

   rectangle(x, y, x + 50, y + 50);

   setbrushcolor(clrandom);

   circle(x, y, 10);

   setbrushcolor(clrandom);

   circle(x + 50, y + 50, 10)

 end;

begin

 var x := 0;

 for var i := 1 to ReadInteger('N =') do begin

   figure(15 + x, 50);

   x += 100;

 end;

end.