Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?
Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?
Гость
Ответ(ы) на вопрос:
Гостьuses GraphABC;
var n: integer;
begin
n:=10;
SetBrushColor(clGreen);
while n<>0 do
begin
Circle(150,150,10*n);
n:=n-1;
end;
end.
P.S. Программа написана на Pascal ABC.
Не нашли ответ?
Похожие вопросы