Cod sursa(job #388382)

Utilizator SykzGabris Marius Sykz Data 29 ianuarie 2010 22:35:25
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var k,p,n,i:longint;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
repeat
      i:=i+5;
      n:=i;
      while n mod 5=0 do
            begin
            k:=k+1;
            n:=n div 5;
            end;
until k>=p;
write(g,i);
close(f);close(g);
end.