Number (Standard IO)

Description

　　给出一个整数 ，你可以对 进行两种操作。
　　1、将x变成4x+3
　　2、将x变成8x+7

　　问，最少通过多少次操作，使得x是1000000007的倍数？

题解：

  听人说什么4x+3的立方等于8x+7的平方，2（2x+1）+1=4x+3，2(4x+3)+1=8x+7~~然后就没有然后了，考试时我一心奔着50%（操作次数<=10）去暴力了，没想到。

代码：

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