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

Question

Информатика

Ксеша

13 сентября, 11:21

Составьте программу которая рисует 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.