Cod sursa(job #187327)

Utilizator alex-Palex puscas alex-P Data 3 mai 2008 13:13:30
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
var n,m,p:longint;
    f:text;

procedure citire;
var f:text;
begin
     assign(f,'fact.in');
     reset(f);
     read(f,p);
     close(f);
end;

function cinci(m,x,putere:longint):longint;
begin
     if (p>=m)or(p>=m-putere) then cinci:=cinci(m+x,x*5,putere+1)
     else begin cinci:=m-x div 5; n:=n+x div 5 end
end;

begin
     citire;
     assign(f,'fact.out');
     rewrite(f);
     n:=0;m:=0;
     if p=0 then write ('1')
     else begin while p>=0 do p:=p-cinci(0,1,0);
                write(f,n+m);
          end;
     close(f);
end.