Visual Basic! Дано целое число N ( больше 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!
Visual Basic!
Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!
Гость
Ответ(ы) на вопрос:
ГостьSub z()
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub
Не нашли ответ?
Похожие вопросы