Задать вопрос
12 февраля, 16:07

Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10,20,30,40,50 (примените команду "for") !

+1
Ответы (1)
  1. 12 февраля, 19:24
    0
    Uses

    GraphABC;

    var

    i: integer;

    begin

    for i : = 10 to 50 do

    if (i mod 10 = 0) then

    DrawCircle (200, 200, i) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10,20,30,40,50 (примените команду "for") ! ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы