Cod sursa(job #361533)

Utilizator bodyionitaIonita Bogdan Constantin bodyionita Data 5 noiembrie 2009 19:10:32
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var i,j,p,x,n,nr:longint;
begin
read(p);
if p=0 then write('1') else begin
 repeat
  n:=1;
  nr:=0;
  inc(x);
  for i:=1 to x do begin
   n:=n*i;
   if n mod 10=0 then begin
                      inc(nr);
                      n:=n div 10;
                      end;
  end;
 until nr=p;
 write(x);
 end;
end.