Задача на последовательность, Объясните в чём смысл задачи Опции

[-Kosinus-]

Найти количество цифр в двоичном представлении N.
Кто-нить понял о чём речь? Если да, то поясните . Не пойму поставленной цели.

[Гость]

Код

Function Dec2Bin (num: word): String;
var result: string;
    remainder: word;
    c: char;
begin
     result := '';
     while num <> 0 do
     begin
          remainder := num mod 2;
          num := num div 2; { или num := num shr 1 }
          c := chr (remainder + ord ('0'));
          result := c + result;
     end;
     Dec2Bin := result
end;

Такпо-моему выглядит.