Ответы на вопрос:
Var n,k : integer; begin readln(n); k: =0; repeat if n mod 10 = 0 then k: =k+1; n: =n div 10; until n< =0; writeln('в этом числе нулей: ',k); end.
Популярно: Информатика
-
HappyGamerAND300027.10.2020 15:06
-
jovenkonatalia02.05.2021 06:10
-
ирадаарасханова05.05.2021 09:08
-
Atiko8811.12.2021 22:05
-
mediw117.07.2020 23:28
-
AlesyaDreamer18.11.2021 16:24
-
sabrinamaryan12.09.2021 06:40
-
bahakendjaev1107.07.2021 23:05
-
milanatkaleeer23.01.2020 21:11
-
filbert0418.06.2022 03:52