Задано натуральное число N. Написать рекурсивную функцию для вычисления количества цифр заданного числа.

[kirito_17]

Задано натуральное число N. Написать рекурсивную функцию для вычисления количества цифр заданного числа.
Помогите)
нужно через функции или процедури зделать ету задачу на делфи)

[Unique_Maks]

обязательно рекурсивную?)
может просто перевести в строку и посмотреть скок символов?) если натуральные

[Mad_Cat]

var
  n : integer;
function NumDig(n:integer):byte;
begin
  if (n>=0) and (n<=9) then NumDig := 1
  else NumDig := 1+NumDig(n div 10)
end;
begin
  write('n = '); readln(n);
  writeln(NumDig(n));
  readln;
end.

(c)Торович