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

Sabinafei Sabinafei    2   25.02.2020 11:48    0

Ответы
Тимур00000000 Тимур00000000  05.08.2020 15:58

                                            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.


Напишите программу на паскале. Присылайте не файлом.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика