Напишите функцию, которая вычисляет количество цифр числа (PascalABC)

Предыдущий
вопрос Следующий
вопрос

function countDigits(n: Integer): Integer;
begin
if n = 0 then
Result := 1
else
Result := Trunc(Log10(Abs(n))) + 1;
end;

Пример использования:

var
num: Integer;
begin
num := 12345;
WriteLn('Number of digits: ', countDigits(num));
end.

Эта функция принимает целое число n и возвращает количество цифр в этом числе. Она использует логарифм по основанию 10 для определения количества разрядов числа n.