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

@Arstan278 · Регистрация: 17.10.2012

Author24 — интернет-сервис помощи студентам

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

Visual Basic

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

@Казанский · 26.06.2015, 16:40

Сообщение от Arstan278

Я смог сделать только обычную функцию

И что, работает?

Кликните здесь для просмотра всего текста

строка 6 лишняя

Вот рекурсивная

Visual Basic

1
2
3

Function podR(x As Long) As Long
  If x Then podR = podR(x \ 10) + 1
End Function

	26.06.2015, 16:40

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

Решение