Cod sursa(job #146713)
| Utilizator |  Giurgiu Adrian j8rj72 |
Data | 2 martie 2008 00:31:31 |
|---|---|---|---|
| Problema | Factorial | Scor | 15 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program factorial;
var a,c,p,i:integer;
f,g:text;
begin
assign(f,'fact.in');reset(f);assign(g,'fact.out');rewrite(g);
a:=0;
i:=0;
readln(f,p);
while i<p do
begin
a:=a+1;
c:=a;
while ((c>0) and (c mod 5=0)) do
begin
c:=c div 5;
i:=i+1;
end;
end;
if p=0 then a:=1;
writeln(g,a);
close(f);close(g);
end.
