Составьте программу в паскаль, которая запрашивает ввод целых положительных чисел и определяет произведение нечётных из них. признаком конца ввода считать ввод числа -4.
222
383
Ответы на вопрос:
Var a: array[1..1024] of integer; p: longint; i: integer; begin p: =1; repeat i: =i+1; readln(a[i]); if a[i]< 0 then begin if a[i]< > -4 then writeln('vvedite polozhitelnoe chuslo'); end else begin if a[i] mod 2< > 0 then p: =p*a[i]; end; until a[i]=-4; writeln('proizvidenie = ',p); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ZayacZnaniy15.01.2022 17:07
-
jjjonh974619.11.2022 19:04
-
zswdfx20.05.2020 09:57
-
pugachyowaan23.10.2020 03:13
-
русляккисляк28.06.2022 11:23
-
mlpnko213.01.2022 15:06
-
вася78318.12.2020 06:47
-
YuliaShckumat02.01.2020 15:33
-
Rustem111227.06.2023 03:55
-
максімаус14.07.2020 23:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.