N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите ,...

Question

N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA

Answer 1

Только с олимпиады, много лишнего(наверно) но как есть.
uses crt;
var a,s,f,i:integer;
    f1,s1:string;
    r,g:text;
begin
assign (r,'C:\Ain.txt');
reset (r);
readln (r,a);
close (r);
f:=1;
for i:=2 to a do
f:=f*i;
str(f,f1);
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s1<>'0' then
delete(f1,1,1);
end;
for i:=1 to length(f1) do
begin
s1:=copy(f1,1,1);
if s1='0' then
s:=s+1;
end;
assign (g,'C:\Aout.txt');
rewrite (g);
writeln (g,s);
close(g);
end.