Дано натуральное число меньше 16. посчитать количество его единичных битов. например, если дано число 9, запись которого в двоичной системе счисления равна 10012 (подстрочная цифра 2 справа от числа означает, что оно записано в двоичной системе счисления), то количество его единичных битов равно 2.

Program p_2; var       n, count: byte; begin readln(n); count : = 0; count : = count + n mod 2; n : = n div 2; count : = count + n mod 2; n : = n div 2; count : = count + n mod 2; n : = n div 2; count : = count + n; writeln(count) end.

Ну