点这里查看
讨论 / 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
回复 删除
膜拜

牛~

查看更多回复
提交回复