Ответы на вопрос:
1. "школьное" решение //pascalabc.net 3.0, сборка 1064 var s: string; i,k: integer; begin write('введите натуральное число: '); readln(s); k: =0; for i: =1 to length(s) do if s[i]='0' then inc(k); writeln('количество нулей в записи числа равно ',k) end. пример: введите натуральное число: 13054000230 количество нулей в записи числа равно 5 2. современное решение //pascalabc.net 3.0, сборка 1064 begin var s: =readstring('введите натуральное число: '); writeln('количество нулей в запиcи числа равно ',s.where(x-> x='0').count) end. пример: введите натуральное число: 13054000230 количество нулей в записи числа равно 5
Var n,i: longint; begin read (n); i: =0; repeat if (n mod 10 = 0) then i: =i+1; n: = n div 10; until (n=0); writeln(i); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Мандер22.03.2023 12:52
-
SEMKA2244418.11.2020 06:45
-
Belgorodov3325.03.2020 07:48
-
rishanaHD26.06.2023 23:11
-
vovazvyagin25.03.2021 01:35
-
abobov123422.05.2023 05:25
-
Varyachka22812.01.2020 04:56
-
TBONBATYA20.03.2021 06:27
-
iordanaurikap06yjs24.06.2020 18:41
-
max50chepil12.10.2020 23:30
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.