var
  r:real;
  n,i,l,l1:longint;
begin
  readln(l);
  for l1:=1 to l do
    begin
      readln(n);
      r:=0;
      for i:=1 to n do r:=r+ln(i)/ln(10);
      writeln(trunc(r)+1);
    end;
end.

• 这种题要是这样就能过就太没水平了，去找一本数学分析翻一下，里面肯定有写Stirling公式的 (234) frkstyc 2005-05-01 08:52:38
  • 要Stirling公式么？我记得直接取对数加起来就好了，好像用Stirling公式再lg反而精度不够 (0) palmtenor 2005-05-01 09:14:38
    • 直接对Stirling取lg再加一个简单的fix可以了 (0) frkstyc 2005-05-01 09:17:46
      • Re:直接对Stirling取lg再加一个简单的fix可以了 (15) JiangLY 2005-05-01 10:22:49
        • 初二还没学图论呢，你怎么老是用Dijkstra？ (19) frkstyc 2005-05-01 11:10:41
          • Re:初二还没学图论呢，你怎么老是用Dijkstra？ (14) JiangLY 2005-05-01 11:19:31
            • 图论就不是数学了么？ (18) frkstyc 2005-05-01 11:20:58
              • Re:图论就不是数学了么？ (17) JiangLY 2005-05-01 11:22:15
                • 言归正传，请frkstyc大牛给给公式吧 (0) JiangLY 2005-05-01 11:23:30
                  • Re:言归正传，请frkstyc大牛给给公式吧 (21) frkstyc 2005-05-01 11:25:34
                • Re:图论就不是数学了么？ (75) frkstyc 2005-05-01 11:24:20
                  • Re:图论就不是数学了么？ (11) JiangLY 2005-05-01 11:48:54
                    • Re:图论就不是数学了么？ (80) frkstyc 2005-05-01 11:52:13