Cod sursa(job #2833)

Utilizator Adrian001Vladulescu Adrian Adrian001 Data 19 decembrie 2006 13:31:23
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 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:=1;
While p>n do
 Begin
  inc(fact);
  r:=fact;
  While r mod 5=0 do
   Begin
    r:=r div 5;
    inc(n);
   end;
 end;
Write(g,fact);
Close(f);
Close(g);
end.