BZOJ1666: [Usaco2006 Oct]Another Cow Number Game 奶牛的数字游戏

1666: [Usaco2006 Oct]Another Cow Number Game 奶牛的数字游戏

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 502  Solved: 432
[Submit][Status]

Description

奶牛们又在玩一种无聊的数字游戏。输得很郁闷的贝茜想请你写个程序来帮她在开局时预测结果。在游戏的开始，每头牛都会得到一个数N(1<=N<=1,000,000)。此时奶牛们的分数均为0。如果N是奇数，那么奶牛就会把它乘以3后再加1。如果N是偶数，那么这个数就会被除以2。数字每变动一次，这头奶牛就得到1分。当N的值等于1时，游戏结束，此时的分数就是这头奶牛在这局游戏中的最终得分。 以下是N的初始值为5时，一局游戏的完整过程： N 操作后所得数 注释 总分 5 16 3*5+1 1 16 8 16/2 2 8 4 8/2 3 4 2 4/2 4 2 1 2/2 5 这头奶牛的最终得分是5。

Input

* 第1行: 一个正整数，N

Output

* 第1行: 输出一个正整数N，即奶牛在这局游戏中的最终得分

Sample Input

112

Sample Output

20

HINT

 

Source

Gold

题解：

3n+1问题。。。

代码：

var n,ans:longint;
begin
  assign(input,'input.txt');assign(output,'output.txt');
  reset(input);rewrite(output);
  readln(n);ans:=0;
  while n<>1 do
   begin
     inc(ans);
     if odd(n) then n:=3*n+1 else n:=n>>1;
   end;
  writeln(ans);
  close(input);close(output);
end.