Найти произведение нечетных чисел от 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д