Me gustaría hacer una pregunta de programación: programe para calcular cuántos ceros hay al final del número derivado de 1 x 2 x 3 x...x N (N se ingresa mediante el teclado (N<1,000,000 ))!
programa t1;
var i,j,k2,k5,m,n:longint;
comenzar
readln(n);
for i：=1 to n do{Circuito para calcular el número de factores primos 2 y 5 de cada número}
comenzar
m:=i;
mientras m mod 2=0 hacer
comenzar
m:=m div 2;
k2:=k2+1;
end;{Encontrar el número de 2 en los factores primos descompuestos de este número}
mientras m mod 5=0 do
comenzar
m : =m div 5;
k5：=k5+1;
end;{Encuentra el número 5 en los factores primos descompuestos de este número}
end ;
si k2>k5 entonces writeln(k5)
else writeln(k2);
end.p>end.
Maldita sea, ydrainbowcat es tan descarado