Question

Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе.

Формат входных данных

На вход ваша программа получает одно натуральное число n (1≤n≤216−11≤n≤216−1).
Формат выходных данных

Выведите одно число — количество цифр в числе n.

Answer 1

var n:longint;
function kol(n:integer):integer;
begin
if n<10 
 then kol:=1
 else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.

Пример:
n = 15324
k = 5

Answer 2

var n: integer;
 function f(n: integer): integer;
begin
  if(n < 10) then f := 1
  else f := f(n div 10) + 1;
end;
 begin
  readln(n);
  write(f(n));
end.