Сосчитать количество единиц в двоичной записи числа i

Question

Vicente Valteri Профи (844), закрыт 11 лет назад

Задача 5.

Сосчитать количество единиц в двоичной записи числа i.

на дельфи. код программы кому не сложно

Answer 1

k:=0;
while i <> 0 do begin
if i mod 2 = 1 then k:=k+1;
i:=i div 2
end;
writeln (k);