Написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.

Через функцию.

Question

Информатика

Паисия

25 мая, 14:14

Написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.

Через функцию.

+2

Ответы (1)

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

Модеста · Answer 1

Var a:integer;

function k (n:integer) : integer;

begin

if n<10

then k:=1

else k:=k (n div 10) + 1;

end;

begin

write ('a = ') ;

readln (a) ;

writeln ('Количество цифр = ', k (a)) ;

end.

Пример:

a = 134652

Количество цифр = 6

Написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.Через функцию.

Написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия.

Через функцию.