Удаление из натурального числа Х заданной цифры D - VB
Формулировка задачи:
Здравствуйте, помогите решить задачу.
Составить программу, которая выполняет удаление из натурального числа Х некоторой заданной цифры D. Н-р для числа 58789890 и цифры 8 результатом будет число 57990.
Заранее Спасибо!
Решение задачи: «Удаление из натурального числа Х заданной цифры D»
textual
Листинг программы
- Function delDig(n As Long, d As Long, Optional r As Long = 0) As Long
- If n = d Or n = 0 Then
- delDig = r
- Else
- nn& = n \ 10
- rr& = n Mod 10
- If rr& = d Then
- delDig = delDig(nn&, d, r)
- Else
- delDig = delDig(nn&, d, r) * 10 + rr&
- End If
- End If
- End Function
- Sub Test()
- Debug.Print delDig(354545, 5)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
