Дано натуральное число а. Найти произведение четных цифр этого числа - VBA

Узнай цену своей работы

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

Добрый день! Ребята помогите пожалуйста с задачей, нужен код для VBA. Заранее благодарю. Дано натуральное число а. Найти произведение четных цифр этого числа.

Решение задачи: «Дано натуральное число а. Найти произведение четных цифр этого числа»

textual
Листинг программы
Function ProdEeven(ByVal n As Long) As Long
    Dim p As Long, m As Long
    p = 1
    While n
        m = n Mod 10
        If m Mod 2 = 0 Then p = p * m
        n = n \ 10
    Wend
    ProdEeven = p
End Function
 
Sub main()
    Dim a As Long
    a = 123456789
    Debug.Print ProdEeven(a)
End Sub

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

11   голосов , оценка 3.545 из 5
Похожие ответы