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

Ответы:

Софья Воронова

13-08-2015 20:29

uses GraphABC; var i: integer;begin for i := 10 to 50 do if (i mod 10 = 0) then DrawCircle(200, 200, i);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Elizaveta Plehova

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!» от пользователя Elizaveta Plehova в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!