Предмет: Информатика,
автор: rakiyapav
Составьте программу рисования десяти пересекающихся окружностей, расположенных горизонтально.
Ответы
Автор ответа:
0
PascalABC.NET Версия 3.0 Сборка 1150
uses GraphABC;
begin
for var i := 1 to 10 do DrawCircle(100, 100 + 20 * i, 100);
end.
Результат:
uses GraphABC;
begin
for var i := 1 to 10 do DrawCircle(100, 100 + 20 * i, 100);
end.
Результат:
Приложения:
Похожие вопросы
Предмет: Математика,
автор: Fgfgggffghj
Предмет: Алгебра,
автор: manabaevazamat22
Предмет: Русский язык,
автор: sabyralieva
Предмет: Химия,
автор: Sabina100100
Предмет: Литература,
автор: riri39