Question

дано натуральное число.Определить количество единиц в записи данного числа в двоичной системе счисления

Answer 1

var
  n, k: longint;

begin
  Write('Введите натуральное число: '); Readln(n);
  k := 0;
  if n > 1 then
  begin
    repeat
      if n mod 2 = 1 then k := k + 1;
      n := n div 2
    until n < 2
  end;
  Writeln('Количество единиц в двоичном представлении равно ', k + 1)
end.

Тестовое решение:
Введите натуральное число: 152
Количество единиц в двоичном представлении равно 3