Задать вопрос
25 июля, 00:43

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

Visual basic

+4
Ответы (1)
  1. Б
    25 июля, 03:10
    0
    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но думаю работать и у тебя будет
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Определить произведение цифр натурального числа N. Visual basic ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Вопрос 1 Что представляет собой Visual Basic? система программирования среда проектирования объединяет в себе систему программирования и среду проектирования Вопрос 2 Каким образом можно изменить значения свойств объекта?
Ответы (1)
Visual Basic Написать процедуру для нахождения отрицательных и положительных чисел из строки, состоящий из произвольного набора цифр и букв. *перевести полученное число в его двоичный код *найти максимальное из чисел
Ответы (1)
Cрочно! Язык visual basic, массивы - задачи: 1) Заменить значение любого элемента массива на а 2) Определить имеются ли четные числа в массиве 3) Заменить все элементы некоторой строки на заданное число 4) Вывести все элементы N столбца и M строки
Ответы (1)
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
Задание в Visual basic. Введите 2 числа, если их разность больше 8, то числа перемножить в противном случае сложить.
Ответы (1)
 
Войти
Задать вопрос