Дано натуральное число : найти в нем общее количество цифр 1 и 2. на языке паскаля
148
470
Ответы на вопрос:
Var a,n : integer; begin readln(a); n: =0; while a> 0 do begin inc(n,ord((a mod 10) in [1,2])); a: =a div 10; end; writeln(n); end.
Популярно: Информатика
-
SemMandarenova03.04.2022 05:56
-
milanaphenix23.12.2022 05:30
-
Kotuknarkotik03.12.2020 16:04
-
masha123456787421.09.2022 11:38
-
Mako937521.10.2020 14:39
-
lera547117.04.2020 17:15
-
bearwithsphere04.07.2022 10:32
-
камилла73115.02.2022 10:07
-
artyomortega03.11.2021 01:15
-
tima0204zhan29.10.2022 16:41