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