Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20, 30, 40, 50 (примените команду For)
Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20, 30, 40, 50 (примените команду For)
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET 3.2 сборка 1318 uses GraphABC; Var i:integer; begin for i:=5 downto 1 do circle(60,60,i*10); end.
Не нашли ответ?
Похожие вопросы