讨论 / easy 的题
zsx 2012-10-12 19:15:00
点我顶贴 收藏 删除
var x, m,i:longint;

begin

read(m);i:=1;

repeat

if i<=m then begin i:=i*2;x:=x+1;end;

if i>m+1 then begin i:=(i-m)*2-1;x:=x+1;end;

until i=m+1;

write(x+1);

#1 ljw1994@2009-05-01 02:16:00
回复 删除
大牛...!!
#2 青龙白狐@2009-05-01 02:31:00
回复 删除
我晕,无聊.
#3 刘载清@2012-10-12 19:15:00
回复 删除
膜拜

牛~

查看更多回复
提交回复