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

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

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

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

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

Question

Информатика

Феоза

22 января, 17:54

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

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

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

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

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

+5

Ответы (2)

Знаете ответ на вопрос?

Илария · 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.