Cod sursa(job #1564043)

Utilizator gra99Graur Gabriel gra99 Data 7 ianuarie 2016 22:05:13
Problema Factorial Scor 15
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
Program fact;
 var p,i:longint;
     f,n:longint;
     a:array[1..100] of longint;
     fi,fo:text;
 begin
 assign(fi,'fact.in');reset(fi);
 assign(fo,'fact.out');rewrite(fo);
 read(fi,p);
 repeat
 begin
 n:=0;f:=1;
 inc(i);
 while (f<i) do begin
 f:=f*5;
 n:=n+i div f;
 end;
 end;
 until n=p;

 writeln(fo,i);
 close(fo);
 end.