Программирование циклических алгоритмов

[eduard93]

помогите решить след задачу:

1/x + 1/x^2 + 1/x^6 + ... + 1/x^n!

сделал вот так,

INPUT "X= "; X
INPUT "N= "; N
F = 1
FOR J = 1 TO N
    F = F * J
NEXT J
OTVET = 0
FOR i = 1 TO F
    OTVET = OTVET + (1 / X ^ F)
NEXT i
PRINT "otvet = "; OTVET

но она зависает

может я думаю "не в ту сторону" ??
p.s желательно сделать поскорее

[BeJIuKuu_Hexo4yxa]

зависает, видимо потому, что количество циклов получается колоссальным.

ИМХО, здесь нужен иной подход.
Вводить N вообще не нужно.
Т.к. каждый член прогрессии (слагаемое) будет уменьшаться, то надо ввести погрешность измерения, и выходить из цикла, когда новый член будет меньше допустимой погрешности (цикл while).

И разберись с началом и концом цикла.

[eduard93]

спасибо, решил сам, выглядит вот так:

INPUT "X= "; X
INPUT "N= "; N
OTVET = 0
FOR i = 1 TO N
    F = 1
    FOR j = 1 TO i
        F = F * j
    NEXT j
    OTVET = OTVET + 1 / X ^ F
NEXT i
PRINT "otvet = "; OTVET