Надо сделать в Pascal ABC.

0 голосов
30 просмотров

Надо сделать в Pascal ABC.


image

Информатика | 30 просмотров
Дан 1 ответ
0 голосов

Program name;
uses Graphabc;
var
x,y,r,i,k:integer;
begin   
write('Введите количество кругов: '); readln(k);     
for i:= 1 to k do 
BEGIN     
x:= random(600);     
y:= random(400);     
r:= random(80);        
Circle(x, y, r); 
end;  
end.

(315 баллов)
0

Я не знаю как добавить цвет, пробовал использовать setbrushcolor(), но почему то пишет ошибку
Нельзя преобразовать тип integer к System.Drawing.Color

0

Если кто нибудь знает почему вылазиет эта ошибка, пожалуйста напишите