Составить программу вычисления количества трёхзначных чисел которые не кратны 5 с while
107
163
Ответы на вопрос:
Var i,k: integer; begin; i: =100; while i< > 1000 do begin; if i mod 5< > 0 then k: =k+1; inc(i); end; writeln(k); end.
заметим, что всего имеется 900 трехзначных чисел - от 100 до 999. если посчитать, сколько среди них чисел, кратных пяти, то вычтя его из 900, получим искомый ответ. первое число, кратное 5, это 100. а все остальные получаются путем последовательного прибавления числа 5. // pascalabc.net 3.0, сборка 1064 var i,n: integer; begin n: =0; i: =100; while i< 1000 do begin inc(n); i: =i+5 end; writeln('количество чисел равно ',900-n) end. результат выполнения программы: количество чисел равно 720
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Rake420.05.2021 15:53
-
Engineeeer25.04.2020 02:17
-
20лиза0709.07.2022 02:43
-
123321456654sego14.08.2020 08:37
-
мик10425.04.2020 21:02
-
стрелыамура213.10.2020 10:28
-
Музалевская15.08.2022 00:12
-
серега65714.02.2021 21:23
-
igarsuper116.10.2020 15:56
-
gulya10116.10.2021 03:13
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.