Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!
Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!
Гость
Ответ(ы) на вопрос:
Гостьuses
GraphABC;
var
i: integer;
begin
for i := 10 to 50 do
if (i mod 10 = 0) then
DrawCircle(200, 200, i);
end.
Не нашли ответ?
Похожие вопросы