Visual Basic!

Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + ... + N!

Question

Афинодор

5 сентября, 21:19

+4

Ответы (1)

Знаете ответ?

Андрей · Answer 1

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

Visual Basic!Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + ... + N!