Определить произведение цифр натурального числа 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 = ProductEnd Functionn = 1203MsgBox("Product of digits in " & n & " = " & GetNumberProduct(n))---проверялось на vbscript, yно думаю работать и у тебя будет