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

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