Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?

Question

Информатика

Лин

25 февраля, 09:00

Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?

+3

Ответы (1)

Знаете ответ?

Далмат · Answer 1

uses GraphABC;

var n: integer;

begin

n:=10;

SetBrushColor (clGreen) ;

while n0 do

begin

Circle (150,150,10*n) ;

n:=n-1;

end;

end.

P. S. Программа написана на Pascal ABC.