Единицы

На уроках информатики вас, наверное, учили переводить числа из одних систем счисления в другие и выполнять другие подобные операции. Пришло время продемонстрировать эти знания. Найдите количество единиц в двоичной записи заданного числа.

Входные данные

Во входном файле INPUT.TXT записано целое число n (0 ≤ n ≤ 2×10⁹).

Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — количество двоичных единиц в записи числа n.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	5	2
2	7	3

Решение

var  a,i:integer;

f,f1:text;

begin

assign(f,'input.txt');

    reset(f);

     assign(f1,'output.txt');

     rewrite(f1);

    readln(f,a);

    if a=0 then write(f1,0) else

    begin

     i:=0;

     while a>0 do

     begin

      if a mod 2 =1 then i:=i+1;

      a:=a div 2;

      end;

      write(f1,i);

      end;

  close(f);

  close(f1);

end.