Вычислить значение суммы S = 1/1! + 1/2! + ... + 1/k! - VB
Формулировка задачи:
Вычислить значение суммы
S = 1/1! + 1/2! + ... + 1/k!
Помогите, пожалуйста. И, по-возможности, поскорее.
Решение задачи: «Вычислить значение суммы S = 1/1! + 1/2! + ... + 1/k!»
textual
Листинг программы
sub a()
k=val(inputbox("k?"))
s=0
f=1
for i=1 to k
s=s+1/f
f=f*i
next i
msgbox s
end sub