Дано натуральное число N. Требуется определить количество нулей среди цифр данного числа.

Question

Информатика

Тихослава

7 декабря, 22:26

Дано натуральное число N. Требуется определить количество нулей среди цифр данного числа.

+5

Ответы (1)

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

Любомира · Answer 1

Var

n:longint;

k:integer;

begin

Write ('Введите натуральное число: ') ; Read (n) ;

k:=0;

while n>0 do begin

if (n mod 10) = 0 then Inc (k) ;

n:=n div 10

end;

Writeln ('Количество нулей в числе равно ', k)

end.

Тестовое решение:

Введите натуральное число: 15035003

Количество нулей в числе равно 3