Дано натуральное число N (N > 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах.
Вопрос посетителя
Дано натуральное число N (N > 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах.
Пример: N = 10025000. Количество нулей равно двум.
Ответ эксперта
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.