Cod sursa(job #74953)
Utilizator | Antoanela Siminiuc antoanela | Data | 29 iulie 2007 21:00:45 |
---|---|---|---|
Problema | Factorial | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.8 kb |
program factorial;
var f,g:text;
p,n,i,o,cx,x,k:longint;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
rewrite(g);
read(f,p);
if (p=0)then write(g,1) else
begin
while (i<=p)do begin
if (i>=p)then break;
x:=x+5;
o:=0;
cx:=x;
while (cx mod 5=0)do begin
o:=o+1;
cx:=cx div 5;
end;
i:=i+o;
if (i-o<p)and(p<i)then write(g,-1)else
if (i-o<=p)and(p=i)then begin
k:=1;
end else if (i-o=p)then begin
k:=1;
end;
end;
if (k=1)then write(g,x);
end;
close(f);
close(G);
end.