написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.
Через функцию.

var a:integer;function k(n:integer):integer;beginif n<10 then k:=1 else k:=k(n div 10)+1;end;beginwrite('a = ');readln(a);writeln('Количество цифр = ',k(a));end.Пример:a = 134652Количество цифр = 6