Cod sursa(job #278327)
Utilizator | Andrei Alexandru THE_GAME | Data | 12 martie 2009 11:24:57 |
---|---|---|---|
Problema | Factorial | Scor | 15 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
var p,m,s,n:integer;
f,g:text;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
read(f,p);
n:=0;
while s<=p-1 do begin
n:=n+5;
m:=n;
while m div 5>0 do begin
s:=s+1;
m:=m div 5;
end;
end;
rewrite(g);
if p=0 then write(g,'1')
else if s=p then write(g,n)
else write(g,'-1');
close(f);
close(g);
end.