Количество нулей в конце факториала

[dimon_snake]

Задание - нужно найти кол-во нулей в конце факториала числа.

var
fi,fo:text;
n,x,a,i:longint;
y:longint;
begin
Assign(fi,'books.in');
Assign(fo,'books.out');
Reset(fi);
Rewrite(fo);
Read(fi,n);
y:=0;
a:=0;
for i:=1 to n do
begin
a:=i;
while a mod 5=0 do begin
inc(y);
a:=a div 5;
end;
end;
Write(fo,y);
Close(fo);
end.

Программа работает, считает, но при числах под миллиард зацикливается, не понимаю почему.
Объясните, пожалуйста.

[Viktor_Ptica]

Данным кодом Вы ищите не "кол-во нулей в конце факториала числа", а количество чисел, кратных 5 (причем ОЧЕНЬ многие повторно). При входном n=1562548580 результат Вашего кода выдал 390 637 141, что мне кажется не правильным. Хотя верным будет ответ 312 509 716. Попробуйте ввести n=25 и на выходе получите 6 вместо 5. Что то вы напутали в алгоритме точно. Ну или в задаче.

Для решения Вашей задачи рекомендую входное число преобразовать в текст и обработать уже текст, перебирая символы с конца строки в начало, пока Символ не станет неравен 0

[dimon_snake]

Число во входном файла может быть от 1 до 1000000000.

[Poma][a]

Ну дак у тебя 10^9. Да и цикл внутри. Конечно тл.. Тут нужно просто делить на все степени 5 м суммировать частное

[Аватар]

Все правильно ты считаешь, проверь для 100 - должно быть 24 нуля. Насчет зависания Poma][a правильно говорит - очень долго считать для миллиарда нужно

[Viktor_Ptica]

Сообщение от Аватар

Все правильно ты считаешь, проверь для 100 - должно быть 24 нуля. Насчет зависания Poma][a правильно говорит - очень долго считать для миллиарда нужно

если не сложно, поясните. в чем суть вопроса? число нулей в результате операции Факториал(10000000000)? вероятно не правильно понял вопрос....

[Аватар]

Задается n. Нужно посчитать сикока 0 в конце n!. По крайней мере ТС это считает

[dimon_snake]

Вот как можно уменьшить время выполнения программы? Программа не зацикливается, но считает довольно долго.

[Аватар]

Для этого алгоритма пожалуй ни как. Других, более быстрых не знаю. Просто не знаю

[Viktor_Ptica]

Сообщение от Viktor_Ptica

Данным кодом Вы ищите не "кол-во нулей в конце факториала числа", а количество чисел, кратных 5 (причем ОЧЕНЬ многие повторно). При входном n=1562548580 результат Вашего кода выдал 390 637 141, что мне кажется не правильным. Хотя верным будет ответ 312 509 716. Попробуйте ввести n=25 и на выходе получите 6 вместо 5. Что то вы напутали в алгоритме точно. Ну или в задаче.

Для решения Вашей задачи рекомендую входное число преобразовать в текст и обработать уже текст, перебирая символы с конца строки в начало, пока Символ не станет неравен 0

признаюсь, сильно ступил. прогуглил и осознал(