Cod sursa(job #525583)
| Utilizator |  UAIC Ion Caliman ion_caliman |
Data | 25 ianuarie 2011 16:11:38 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
var p,nr,fac,x,n:int64;
i,j:int64;
f:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
nr:=0;
n:=1;
fac:=1;
if p mod 6<>5 then
n:=p*5-(p div 6)*5;
assign(f,'fact.out');
rewrite(f);
if p=0 then write(f,1) else
if p mod 6 =5 then write(f,-1) else
write(f,n);
close(f);
end.
