Задачи! Pascal

[Колядин Максим]

- подсчитать кол-во установленых в 1 бит в этом числе

Somewhere, стесняюсь спросить (притом, что ты меня уже 100 раз выручал), как это сделать? Я понимаю, что я тебя уже "достал" своими вопросами, но всё же, как подсчитывать?

[Хыиуду]

Если нужно получить количество битов, установленных в 1, можно, например, сделать так:
sum:=0
while x>0 do
begin
if odd(x) then inc(sum);
x:=x div 2; {либо x:=x shr 1}
end;

[Колядин Максим]

Спасибо Хыиуду.