Дано натуральное число N (N> 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример. N=10 025 000. Количество нулей равно двум.

Question

Информатика

Емельянка

2 мая, 10:28

Дано натуральное число N (N> 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример. N=10 025 000. Количество нулей равно двум.

+1

Ответы (1)

Знаете ответ на вопрос?

Манюта · Answer 1

Var n, k:integer;

begin

write ('n = ') ;

readln (n) ;

k:=0;

while n mod 10 = 0 do n:=n div 10;

while n>0 do

begin

if n mod 10 = 0 then k:=k+1;

n:=n div 10;

end;

writeln ('k = ', k) ;

end.

Пример:

n = 1010203000

k = 2