Найти сумму членов ряда S=1/2!+1/3!+1/4!+… +1/(n+1)! ; n=10 — QBasic(Бейсик)

f = 1
FOR i = 1 TO 10
    f = f * (i + 1)
    s = s + 1 / f
NEXT
PRINT s

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

Leave a Comment