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

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

+3
Ответы (1)
  1. 26 декабря, 11:50
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром? ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы