Cod sursa(job #604345)

Utilizator iu.ciocoiuIulian iu.ciocoiu Data 21 iulie 2011 20:07:40
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program factorial;
var p:longint;
    rez:real;
    f,g:text;
begin
assign (f,'fact.in'); reset (f);
assign (g,'fact.out'); rewrite (g);
read (f,p);
if (p=0) then write (g,'1')
         else begin rez:=int(5*(p-int(ln(5*p)/ln(5)-1)));
                    write (g,rez:10:0);
              end;
close (f);
close (g);
end.