Рекурсия

[gafruslan]

Подсчитать количество цифр в заданном числе.

[rubius2008]

function f(n:integer):integer;
begin
   if n=0 then f:=1 else f:=1+f(n div 10);
end;