Сколько цифр 1 в двоичном представлении десятичного числа 17

Переводим число 17 в двоичную систему. для этого надо 17 поделить на 2, и каждое последующее частное (покуда это возможно) делить на 2. 17: 2=8 (остаток 1)                           8: 2=4 (остаток 0)                         === 4: 2=2 (остаток 0)                         +++ 2: 2=1 (остаток 0)       ***               """   теперь с конца начинаем записывать числа, начиная с 1, потом переходим на остатки снизу вверх 1     0     0       0       1             получается, две единицы ***   """   +++   ===   ответ: 2

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

 

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.