Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,30,...100. (надо использовать while )
Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,30,...100. (надо использовать while )
Гость
Ответ(ы) на вопрос:
Гостьuses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.
Не нашли ответ?
Похожие вопросы