Visual Basic!

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

Question

Яна

3 марта, 01:21

+1

Ответы (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!