Question

Задача А Четные
N-Factorial - это произведение всех чисел от 1 до N.Для заданного числа N определите,сколько нулей в конце десятичной записи.
Формат входных данных
В единственной строке входного файла содержится одно целое положительно число N ( 1 <u />$\leq$N$\leq$$10^{9}$).
Формат выходных данных
Выведите одно целое число-количество нулей в конце десятичной записи N-Factorial.







Имя выходного файла: A.in
Имя выходного файла: А.out
Имя файла решения задачи: A.{c,cpp,pas}
Ограничение по времени: 2 секунды
Ограничение по памяти: 64 мегабайт.

Пример:
A.in A.out Комментарий
4 0 1*2*3*4=24
6 1 1*2*3*4*5*6=720
10 2 1*2*3*4*5*6*7*8*9*10=3628800

Answer 1

Uses crt;
var n,mult,i,ans:integer;
begin
read(n);
mult:=1;
for i:=2 to n do
mult:=mult*i;
while mult mod 10=0 do begin
inc(ans);
mult:=mult div 10;
end;
writeln(ans);
end.