p1526.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 29 行

PROGRAM p_unknow;

VAR
        n       :longint;
        k       :integer;
        i       :integer;
        e       :extended;


FUNCTION p:longint;
var
        a,b       :extended;
begin
a:=sqrt(2*3.141592658*n);
b:=n/2.7182815;
a:=ln(a)/ln(10);
b:=ln(b)/ln(10);
p:=trunc(a+n*b)+1;
end;

BEGIN
readln(k);
for i:=1 to k do
        begin
        readln(n);
        writeln(p);
        end;
END.