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

Question

Феодосия

12 июня, 03:35

+4

Ответы (1)

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

Сергеич · Answer 1

Uses

GraphABC;

var

i: integer;

begin

for i : = 10 to 50 do

if (i mod 10 = 0) then

DrawCircle (200, 200, i) ;

end.