Cod sursa(job #266251)
| Utilizator |  Little Lady lady |
Data | 25 februarie 2009 09:32:00 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var p:int64;
i,s,m:longint;
begin
assign(input,'fact.in');reset(input);
assign(output,'fact.out');rewrite(output);
read(p);
m:=0; s:=0;
if p=0 then s:=1
else
if p<0 then s:=-1
else begin
for i:=1 to (p div 5) do
if (i mod 4=1) then inc(m);
s:=5*(p-m);
end;
write(s);
close(input);close(output);
end.
