Найти количество едениц в двоичной записи заданного числа. входные данные: во входном файле содержится единственное целое число n (0< =n< =2000000). выходные данные: выходной файл должен содержать одно число - количество двоичных едениц в записи числа n. #| input.txt| output.txt| 1| 5| 2| 2| 16| 1| 3| 121| 5|
n: longint;
k: integer;
Fin, Fout: Text;
begin
Assign(Fin, 'input.txt');
Reset(Fin);
Assign(Fout, 'output.txt');
Rewrite(Fout);
while not Eof(Fin) do
begin
Readln(Fin, n);
k := 0;
while n > 1 do
begin
k := k + (n mod 2);
n := n div 2
end;
k := k + n;
Writeln(Fout,k)
end;
Close(Fin);
Close(Fout)
end.