Склавиатуры вводится целое положительное число. определить, сколько раз в этом числе встретилась цифра 5. packal abc
157
221
Ответы на вопрос:
Var n, c: integer; begin read(n); c : = 0; while n > 0 do begin if n mod 10 = 5 then inc(c); n : = n div 10 end; write(c) end.
Популярно: Информатика
-
ДарьяСв22.05.2023 21:59
-
дарья164524.06.2022 14:25
-
nikita7114019.01.2021 02:21
-
averina129.05.2023 15:07
-
Still22715.07.2020 22:20
-
sanie777velieva29.12.2021 13:40
-
zaika2590108.04.2020 08:08
-
Tatyna8319.06.2022 05:15
-
mashamasha22107.03.2021 16:55
-
Allagivorgizova139211.07.2020 19:36