Удаление из натурального числа Х заданной цифры 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
                        

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

7 голосов , оценка 3.571 из 5

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