Задание 4 Параграф 1.2 ГДЗ Босова 9 класс 2023 (Информатика)

function kbdn(a: integer): integer;
var
k: integer;
begin
k := 0;
while a < > 0 do
begin
inc(k);
a := a div 2
end;
kbdn := k
end;

Чтобы найти количество цифр в двоичной записи числа, будем последовательно делить число на $$2$$ нацело. Каждое такое деление убирает одну двоичную цифру. Счётчик $$k$$ увеличиваем на $$1$$ до тех пор, пока число не станет равным $$0$$.

function kbdn(a: integer): integer;
var
  k: integer;
begin
  k := 0;
  while a <> 0 do
  begin
    inc(k);
    a := a div 2;
  end;
  kbdn := k;
end;

Ответ

Функция kbdn вычисляет количество цифр в двоичной записи введённого десятичного числа.