Найти количество едениц в двоичной записи заданного числа. Входные данные: Во входном...

Question

Найти количество едениц в двоичной записи заданного числа.
Входные данные:
Во входном файле содержится единственное целое число n (0<=n<=2000000).<br> Выходные данные:
Выходной файл должен содержать одно число - количество двоичных едениц в записи числа 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.

---

Скачать вложение Текст (TXT)

---

Скачать вложение Текст (TXT)