Cod sursa(job #429196)

Utilizator ageofandyAndi Dica ageofandy Data 29 martie 2010 22:03:54
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var f : text;
   p,n,k,i,x : longint;
begin
     assign(f,'fact.in'); reset(f);
     readln(f,p);
     close(f); p:=abs(p);
     if p mod 5=0 then k:=p+1-(p div 5);
     else k:=p-(p div 5);
     n:=k*5;

     if p=0 then n:=1;
     assign(f,'fact.out'); rewrite(f);
     write(f,n);
     close(f);
end.