记录编号 73768 评测结果 AAAAAAAAAA
题目名称 奇怪的函数 最终得分 100
用户昵称 Gravatargungnir 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-10-22 21:08:58 内存使用 0.17 MiB
显示代码纯文本
const oo=2000000000;
var l,r,m,n:int64;

function check:boolean;
begin
m:=(l+r)shr 1;
if(m*ln(m)/(ln(10)))>=n-1 then exit(true)
                         else exit(false);
end;

begin
assign(input,'xx.in');reset(input);
assign(output,'xx.out');rewrite(output);
readln(n);
l:=1;
r:=oo;
while l<>r do if check then r:=m else l:=m+1;
writeln(l);
close(input);close(output);
end.