Номер §1.2 № 4

Двоичную запись получают последовательным делением числа на с остатком. Каждое деление отделяет одну двоичную цифру, поэтому количество делений до нуля равно длине записи положительного числа. У нуля двоичная запись «», то есть одна цифра. Знак отрицательного числа в число цифр не включаем.

var x: integer;

function kbdn(n: integer): integer;
var k: integer;
begin
  k := ;
  while (n <= -) or (n >= ) do
  begin
    n := n div ;
    k := k + 
  end;
  kbdn := k
end;

begin
  readln(x);
  writeln(kbdn(x))
end.

В цикле целочисленное деление удаляет последнюю двоичную цифру. Для значения частного: , , ; счётчик становится равным . Проверяем перевод: , в записи четыре цифры. Для и цикл не нужен, функция возвращает .