Number (Standard IO)

题意/Description:

       给出一个整数 ，你可以对 进行两种操作。
　　1、将x变成4x+3
　　2、将x变成8x+7
　　问，最少通过多少次操作，使得x是1000000007的倍数？

读入/Input：

        一行，一个整数x(1<=x<=1000000006)。

输出/Output：

      一行，表示最少的操作步数。保证答案不超过10^5。

题解/solution：

       画画的时候，发现(4x+3)的3次方等于(8x+7)的二次方。于是就想到它们的一次方是什么......(2x+1)。之后自己做吧。（考完才想到）

代码/Code：

const
  mo=1000000007;
var
  a:int64;
  i:real;
begin
  readln(a);
  while a mod mo<>0 do
    begin
      i:=i+1;
      a:=a*2+1;
      a:=a mod mo;
    end;
  i:=i/3;
  if trunc(i)<>i then writeln(trunc(i)+1)
                 else writeln(trunc(i));
end.