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

Question

Ангелиныч

11 июля, 18:21

+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.