Visual Basic!
Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!
Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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