Question

Найти количество едениц в двоичной записи заданного числа. входные данные: во входном файле содержится единственное целое число n (0< =n< =2000000). выходные данные: выходной файл должен содержать одно число - количество двоичных едениц в записи числа n. #| input.txt| output.txt| 1| 5| 2| 2| 16| 1| 3| 121| 5|

Answer 1

Var
  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.