implicit none integer(8) A,n,s read(*,*) A n=1 s=0 do while(A>n) n=2*n s=s+1 end do s=s-1 if (n==A) then write(*,*) s+1 else n=(n/2) if (mod(n,2)==0) then write(*,*) s+1 else write(*,*) s+2 end if end if end