Cod sursa(job #1920)
| Utilizator |  cristache radu radu91 |
Data | 15 decembrie 2006 13:11:00 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program factorial;
var f1,f2:text; p,n,x,c,y:longint;
begin
assign(f1,'fact.in');
reset(f1);
read(f1,p);
n:=1;
x:=0;
c:=0;
repeat
x:=x+1;
y:=x;
if (y mod 5=0) then
repeat
y:=y div 5;
c:=c+1
until y=0;
n:=n*x;
until (c=p) or (c>p);
if c>p then
n:=-1;
assign(f2,'fact.out');
rewrite(f2);
writeln(f2,n);
end.