Расставить на экране 30 окружностей со случайными координатами X и Y, случайного радиуса и цвета ("мыльные пузыри").Паскаль, пожалйуста решите, кто знает
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;
Answers & Comments
Verified answer
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.