Напишите функцию kbdn, которая вычисляет количество цифр в двоичной записи

§ 1.2 Запись вспомогательных алгоритмов на языке Паскаль
Задание 4. Напишите функцию kbdn, которая вычисляет количество цифр в двоичной записи вводимого десятичного числа.

Вот пример программы на языке Паскаль с функцией kbdn, которая вычисляет количество цифр в двоичной записи вводимого десятичного числа:

program Zadacha4;
function kbdn(n: integer): integer;
var
  count: integer;
begin
  count := 0;
  if n = 0 then
    kbdn := 1
  else
  begin
    while n <> 0 do
    begin
      n := n div 2;
      count := count + 1;
    end;
    kbdn := count;
  end;
end;

var
  number: integer;
begin
  writeln('Введите десятичное число:');
  readln(number);
  writeln('Количество цифр в двоичной записи: ', kbdn(number));
end.

Пример программы на языке Python:

def kbdn(n: int) -> int:
    count = 0
    if n == 0:
        return 1  # У нуля одна цифра в двоичной записи
    else:
        while n != 0:
            n //= 2  # Делим на 2, чтобы перейти к следующему биту
            count += 1  # Увеличиваем счетчик
    return count  # Возвращаем количество цифр в двоичной записи
# Основная часть программы
number = int(input('Введите десятичное число: '))
print('Количество цифр в двоичной записи:', kbdn(number))