Cod sursa(job #266251)

Utilizator ladyLittle 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
Raporteaza aceasta sursa 
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.