Во входном потоке задано натуральное число n(в десятичной системе счисления).Найти количество стоящих рядом битов в его двоичной записи (программа Паскаль)
Вопрос посетителя
Во входном потоке задано натуральное число n(в десятичной системе счисления).Найти количество стоящих рядом битов в его двоичной записи
Ответ эксперта
var
n: longword;
k: integer;
begin
readln(n);
n := n shr 1 and n;
while n > 0 do
begin
inc(k, n and 1);
n := n shr 1
end;
writeln(k)
end.