Нарисовать n концентрических окружностей с минимальны радиусом r и максимальным радиусом r c центром с координатами x и y. n, r, r, x, y вводятся с клавиатуры. pascal abc
257
453
Ответы на вопрос:
program krugi;
uses crt,graphabc; var i,x,y,rmax,rmin,n: integer; begin clrscr; write('количество окружностей: '); readln(n); write('введите x: '); readln(x); write('введите y: '); readln(y); write('введите максимальный радиус: '); readln(rmax); write('введите минимальный радиус: '); readln(rmin); setwindowsize(800,600); for i: =rmax downto rmin do begin if n=0 then break; if (n=1) then circle(x,y,rmin) else circle(x,y,i); i: =i-5; n: =n-1; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Anyta1511116.03.2021 19:20
-
BloodyMary00118.02.2022 11:50
-
hadisvv28.11.2022 09:03
-
faystt08.11.2021 14:09
-
muraitovaayana213.05.2023 09:32
-
kwjeps31.08.2020 20:38
-
OVSANKASIR06.02.2020 07:40
-
veronkagavrily18.05.2022 14:43
-
markkolk77R12.03.2021 06:16
-
123123122131222302.03.2022 22:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.