Cod sursa(job #963011)
| Utilizator |  noname Vasile_Catana |
Data | 16 iunie 2013 13:15:39 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
program p1;
var f,g:text;
n,m,s:longint;
begin
assign(f,'fact.in');reset(F);
assign(g,'fact.out');rewrite(g);
readln(f,n);
m:=5;
s:=0;
while m<=n do begin
s:=s+(n div m);
m:=5*m;
end;
write(g,s);
close(f);
close(G);
end.
