Рекурсия
 

Напишите пж программу с рекурсивной функцией, вычисляющей количество цифр заданного натурального числа n.

А что автору за это будет?

function kolvo(n: integer): byte;
begin
if ch>10 then f := 1 + f(n div 10);
else kolvo:=1;
end;
var
ch: integer;
begin
read(n);
write( f(n) );
end.

А какой смысл задавать один и тот же вопрос на 2 форумах?
Не верите обитателям cyberforum-а или нам?