Рекурсивная функция для подсчета количества цифр в заданном натуральном числе - VB

Формулировка задачи:

Нужно сделать рекурсивную функцию для подсчета количества цифр в заданном натуральном числе. Я смог сделать только обычную функцию для подсчета количества цифр, а вот рекурсивная не получается. Помогите пожалуйста.

                    Листинг программы
                
 
                        
                          
                    
Function pod(ByVal x As Single) As Integer
pod = 0
Do While x <> 0
x = x \ 10
pod = pod + 1
pod = pod(x)
Loop
End Function

Решение задачи: «Рекурсивная функция для подсчета количества цифр в заданном натуральном числе»

textual
                            Листинг программы 
                        
Function podR(x As Long) As Long
  If x Then podR = podR(x \ 10) + 1
End Function

Оцени полезность:

11 голосов , оценка 3.909 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы