Cod sursa(job #2847)

Utilizator Adrian001Vladulescu Adrian Adrian001 Data 19 decembrie 2006 15:13:39
Problema Factorial Scor 25
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program cel;
var f,g:text;
    n,p,fact,r:longint;
Begin
Assign(f,'fact.in');Reset(f);
Assign(g,'fact.out');Rewrite(g);
Read(f,p);
n:=0;
fact:=0;
While p>n do
 Begin
  inc(fact,5);
  r:=fact;
  While r mod 5=0 do
   Begin
    r:=r div 5;
    inc(n);
   end;
 end;
If n=0 then Write(g,1)
       else Write(g,fact);
Close(f);
Close(g);
end.