Question

Составьте программу рисования 6 соприкасающихся окружностей диаметром 100 расположенных горизонтально

Answer 1

uses GraphABC;

var

 diam,i,x:integer;

Begin

 x := 50;

 for i:= 0 to 5 do begin

   Circle(x,50,50);

   x := x + 100;

 end;

End.