Cod sursa(job #320277)

Utilizator netedu_andreiFII Andrei Netedu netedu_andrei Data 4 iunie 2009 11:16:35
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var f,g:text;
    nr,x,p,aux:longint;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
nr:=1;
x:=0;
while x<>p do
      begin
      nr:=nr+1;
      aux:=nr;
      while aux mod 5=0 do
            begin
            x:=x+1;
            aux:=aux div 5;
            end;
      end;
writeln(g,nr);
close(g);
end.