main::IO()
main= do
  x<-fmap read getLine
  let bitExeNum n 1 g = n + if g then 1 else 0
      bitExeNum n s g 
        |s `mod` 2 == 1 = bitExeNum (n+1) (s `div` 2) True
        |otherwise      = bitExeNum (n+1) (s `div` 2) g

  print $ bitExeNum 0 x False