Cod sursa(job #265276)
| Utilizator |  Little Lady lady |
Data | 23 februarie 2009 18:40:12 |
|---|---|---|---|
| Problema | Factorial | Scor | 15 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
var p:longint;
begin
assign(input,'fact.in');reset(input);
assign(output,'fact.out');rewrite(output);
readln(p);
if p=0 then p:=1 else
if p<0 then p:=-1 else
begin
p:=p*5-((p*5 div 26)*5);
end;
write(p);
close(input);close(output);
end.
