Question

Расставить на экране 30 окружностей со случайными координатами x и y, случайного радиуса и цвета ("мыльные пузыри").паскаль, решите, кто знает

Answer 1

uses graphabc;

var   x,y,r,i,color:integer;

begin
       randomize;
      for i:=1 to 30 do
      begin
      x:=random(640)+0;
      y:=random(480)+0;
      r:=random(30)+5;
      circle(x,y,r);
      color:=random(1000)+0;
      FloodFill(x,y,color);
      end;

end.