задачи на рекурсию

Ответ от Pool[гуру]
( подсчитать количество цифр в заданном натуральном числе- через рекурсию)
program p1;
var n:integer;
function suma(n:integer):integer;
begin
if n<10 then suma:=n else suma:=suma(n div 10)+(n mod 10)
end;
begin
write('n=');
readln(n);
write('Suma = ',suma(n));
readln;
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]