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