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

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

Чтобы найти количество цифр целого числа, будем последовательно делить число на $$10$$ нацело и считать, сколько раз это можно сделать, пока число не станет равным $$0$$.

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

Ответ

Функция kdn вычисляет количество цифр вводимого целого числа.