Cod sursa(job #2133)
| Utilizator |  udrea cosmin cosmyudrea |
Data | 16 decembrie 2006 07:41:58 |
|---|---|---|---|
| Problema | Factorial | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
program factorial;
var a,z,x,p:longint;
f,g:text;
begin
assign (f,'fact.in');
assign (g,'fact.out');
reset (f);
rewrite (g);
read (f,p);
repeat
z:=z+1;
a:=5;
repeat
if z mod a=0 then x:=x+1;
a:=a*5;
until z mod a<>0;
until x=p;
write (g,z);
close (f);
close (g);
end.