Предмет: Информатика,
автор: Катюша012
составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: География,
автор: mehratmusaev
Предмет: География,
автор: azimovaaziza20062006
Предмет: Информатика,
автор: nartur687
Предмет: История,
автор: NightFight