# Octave, 18

    sum(dec2bin(s)-48)

Example:


    octave:1> s=1337
    s =  1337
    octave:2> sum(dec2bin(s)-48)
    ans =  6