Страница 29-30 параграф 1.2 вопрос 4, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

program Z_1_2_4;var n: integer;function kbdn(a: integer): integer;var k: integer;begin k := 0; while a <> 0 do begin inc(k); a := a div 2 end; kbdn := kend;begin write('ВВеди число n>>'); readln(n); writeln('Количество цифр в двоичной записи числа ',n,' = ', kbdn(n))end.