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

1

Ответы и объяснения

2013-05-20T17:35:57+04:00


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.