Дано натуральное число меньше 16. Посчитать количество его единичных битов. Например,...

Question

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

Answer 1

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.

Answer 2

Ну лтвдчтвлстслстаьатлаьастсмотстстаоаоаоаалплплпплрлтаоаоалпаталслаьсаьалталатала