Вводится последовательность натуральных чисел. ноль – при- знак конца. подсчитайте, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат
118
402
Ответы на вопрос:
Var x, m, k: integer; begin m : = 0; k : = 0; read(x); while x < > 0 do begin if x mod 7 = 0 then if x > m then begin m : = x; k : = 1 end else if x = m then k : = k + 1; read(x) end; write(k) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
veon109.02.2021 11:09
-
baron203201225.08.2021 03:16
-
Тимоха191126.12.2022 13:04
-
мафінка24.07.2020 21:46
-
смерть7504.02.2022 02:59
-
Сергииенко05.10.2020 15:22
-
karipovilna11.12.2022 18:19
-
mzhenyak199922.04.2021 22:16
-
Кирюха5555502.07.2022 09:17
-
alinanamcat1226.05.2023 12:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.