var
X, i, n: Integer;
begin
Readln(X);
n := 0;
for i := 0 to 15 Do
if (($0001 shl i) and X) <> 0 then inc(n);
writeln(n);
end.
var
X, i, n: Integer;
begin
Readln(X);
n := 0;
for i := 0 to 15 Do
if (($0001 shl i) and X) <> 0 then inc(n);
writeln(n);
end.
var
s: string;
i, count: integer;
begin
write('n = '); readln(s);
count := 0;
for i := 1 to length(s) do
if s[i] = '1' then inc(count)
else
if s[i] <> '0' then begin
writeln('error: illegal input'); halt;
end;
writeln('count = ', count)
end.