import Data.Bits

main :: IO ()
main = do
    n <- readLn :: IO Integer
    print $ popCount n