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

Ответы:

Таисия Чумак

24-10-2016 16:46

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Анжела Гухман

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?» от пользователя Анжела Гухман в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!