Listing PERMANEN.PAS Program permanent; var n,log_nat,log_zec:Real; f:Text; Begin Assign(Input,'PERM.IN'); Reset(Input); Readln(n); Close(Input); Assign(Output,'PERM.OUT'); Rewrite(Output); log_nat:=(n+0.5)*Ln(n)-n+0.5*Ln(2*Pi)+ 1/(12*n)-1/(360*n*n*n){+...}; log_zec:=log_nat/Ln(10); Writeln(Int(3*log_zec)+1:0:0); Close(Output) End. [cuprins] |