Сколько цифр 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 pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.