Ответы на вопрос:
var n, s: integer;
begin
readln(n);
s : = 1;
repeat
case n mod 10 of
0, 6, 9: inc(s);
8: inc(s, 2)
end;
n : = n div 10
until n = 0;
writeln(s)
end.
Популярно: Информатика
-
Рита49629.12.2022 12:44
-
миркинс30.05.2022 11:10
-
1Nicol113.02.2022 19:02
-
lolka14322.12.2020 05:33
-
ггггг2125.02.2020 01:40
-
malyshewacarina23.04.2020 18:04
-
azizovaezoz01.01.2022 11:18
-
Курьяма109.05.2022 03:34
-
лия20601.05.2020 00:14
-
TheCool11120.12.2021 23:01