Var n,k : Integer;
Begin
Readln(n);
k:=0;
Repeat
If n mod 10 = 0 then k:=k+1;
n:=n div 10;
Until n<=0;
Writeln('В этом числе нулей: ',k);
end.
Пример реализации и Excel 2003
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно посмотреть в строке формул.
Это скрипт bash (командная оболочка UNIX).