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

Question

Информатика

Галиша

19 марта, 05:12

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

+3

Ответы (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