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

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.