Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,30, ... 100. (надо использовать while)

Question

Никитична

16 августа, 19:26

+1

Ответы (1)

Знаете ответ на вопрос?

Хариса · Answer 1

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.