Дано натуральное число N (N > 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах.
223
456
Ответы на вопрос:
var n0: integer; n: longint;
begin
readln(n);
while n mod 10 = 0 do n:= n div 10;
n0:=0;
while n<>0 do begin
if n mod 10 = 0 then inc(n0);
n:= n div 10;
end;
writeln(n0);
readln;
end.
begin
readln(n);
while n mod 10 = 0 do n:= n div 10;
n0:=0;
while n<>0 do begin
if n mod 10 = 0 then inc(n0);
n:= n div 10;
end;
writeln(n0);
readln;
end.
Добрый день)
Я хотела узнать, что вы делаете с постерами фильмов, которые уже не нужны, просто если вы от них избавляетесь, я бы хотела попросить забрать постер «КОСМИЧЕСКИЙ ДЖЕМ».
Популярно: Другие предметы
-
arturk1315.03.2023 09:05
-
НеПøтêpяHHåя24.05.2022 01:04
-
Kuanova200519.04.2023 01:59
-
hiohio08.02.2023 10:24
-
Reddi90007.06.2023 12:31
-
саша851004.06.2022 20:37
-
alinana55406.04.2020 15:06
-
annaleha200907.06.2020 03:37
-
fedun2004200405.12.2020 21:02
-
evgehafly26.12.2022 18:22