不信可以看我的程序!
program rqnoj119;
var n,i,x:int64;
begin
readln(n);
x:=1;
i:=0;
repeat
inc(i);
if x<=n then x:=x*2 else x:=(x-n)*2-1;
until x=1;
writeln(i);//i打成n了,怪不得……
end.
SORRY!
其实我是挖坟的
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0035 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.