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

Question

Информатика

Емельянка

26 декабря, 10:57

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

+2

Ответы (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.