Cod sursa(job #353840)

Utilizator EstarDaian Dragos Estar Data 6 octombrie 2009 13:47:06
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var n,k,i,p,z:integer;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
  n:=0;
  while (p<>z) do begin
    n:=n+5;
    k:=n;
    while (k mod 5)=0 do begin
      k:=k div 5;
      z:=z+1;
      end;
    end;
write(g,n);
close(f);
close(g);
end.