Определить произведение цифр натурального числа N.

Visual basic

Function GetNumberProduct (n)

if not IsNumeric (n) then

GetNumberProduct = "Not a valid number"

Exit Function

end If

n = Abs (n)

Product = 1

Do While n > 0

Product = Product * n Mod 10

n = n / 10

Loop

GetNumberProduct = Product

End Function

n = 1203

MsgBox ("Product of digits in " & n & " = " & GetNumberProduct (n))

---

проверялось на vbscript, yно думаю работать и у тебя будет