Найти произведение нечетных чисел от 1 до n - VB
Формулировка задачи:
n вводится с клавиатуры
помогите пожалуйста, я сама в этом ничего не понимаю, очень надо, заранее спасибо)
Решение задачи: «Найти произведение нечетных чисел от 1 до n»
textual
Листинг программы
- Function ДВФАКТР(ByVal N As Integer) As Double
- ДВФАКТР = N
- While N > 2
- N = N - 2
- ДВФАКТР = ДВФАКТР * N
- Wend
- End Function
- sub main
- dim n as integer
- n=inputbox("Введите нечётное число:") 'проверку на нечётность и число ли опускаю - тем на эти темы море
- msgbox ДВФАКТР(n)
- end sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д