СРОЧНО НУЖНО СДЕЛАТЬ pascal нужно посчитать количество единичных битов числа 14

Question

СРОЧНО НУЖНО СДЕЛАТЬ
pascal нужно посчитать количество единичных битов числа 14

Answer 1

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.