Склавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не 10 000. посчитайте количество введенных чисел и полученное произведение.
220
302
Ответы на вопрос:
Var a,b,k: longint; begin b: =1; k: =0; while b< 10000 do begin read(a); b: =b*a; k: =k+1; end; writeln('kol: ',k); writeln('number: ',b); readln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
миса3308.05.2023 18:51
-
maxkostin29rus29.04.2022 21:54
-
диас13716.06.2021 10:53
-
NosoK53528.11.2022 21:53
-
АртёмПестов04.08.2022 11:52
-
vasylyna94627.06.2020 23:27
-
daryalit196711.03.2023 17:30
-
leradolgolenko02.07.2020 19:10
-
Irinazpopo04.03.2020 16:45
-
Niklosh01.08.2022 08:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.