Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1
177
344
Ответы на вопрос:
Var n,k: integer; begin write('n = '); readln(n); k: =0; while n> 0 do begin if n mod 10 = 1 then k: =k+1; n: =n div 10; end; writeln('k = ',k); end. пример: n = 3191k = 2
Популярно: Информатика
-
Nomatdicov07.11.2021 13:44
-
звезда0ютуба29.01.2020 14:37
-
lenyanikiforovp07x7k09.07.2020 21:00
-
anghelina110.04.2022 17:38
-
alina2033219.12.2020 21:58
-
Пава130524.03.2020 13:33
-
Politik200006.03.2021 08:38
-
Astr4lis17.06.2020 21:51
-
133fdsf7za10.04.2022 18:37
-
asino2014517.04.2023 19:22