Вычислить произведение чисел от 1 до N (Excel) - VBA
Формулировка задачи:
Разработайте программу, вычисляющую произведение чисел от 1 и
по порядку до указанного пользователем числа.
Решение задачи: «Вычислить произведение чисел от 1 до N (Excel)»
textual
Листинг программы
Sub Александр9797()
n = InputBox("N")
[A1] = f(n)
MsgBox A1
Debug.Print A1
End Sub
Function f(ByVal x As Long) As Long
If f = 0 Then f = 1
If x > 1 Then
f = f(x - 1) * x
End If
End Function
'N = 5
'N! = 1*2*3*4*5 = 120
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д