Найти сумму при n->0 бесконечность основа (-1)^n*1/factorial n=1-1/factorial 1+1/factorial 2-1/factorial 3+…=1/EXP(1)- QBasic(Бейсик)

INPUT n
f = 1
r = -1
WHILE i < n
    i = i + 1
    f = f / i
    r = (-r)
    s = s + r * f
WEND
PRINT "s="; s

Тестирование выполнено в программе QB64 ( Скачать )