Помогите пожалуйста составить программку (желанно для LibreOffice, но подойдет и для

Сама программка написана, но ее нужно редактировать, и для этого нужна общая формула нахождения S как например : 1/((2n-1)*x^(2n1))

И по-моему необходимо использовать в данной задаче цикл Do ... While

Хм... в задании написана такая формула в теме способы интераций...

Ой, не методы интераций а интерационные формулы

Сейчас вызнал, произнесли можно исключить tg(pi/2)

Сама программа написана, но ее необходимо редактировать, и для этого нужна общая формула нахождения S как к примеру : 1/((2n-1)*x^(2n1))

И по-моему необходимо использовать в данной задачке цикл Do ... While

Хм... в задании написана такая формула в теме методы интераций...

Ой, не способы интераций а интерационные формулы

На данный момент вызнал, сказали можно исключить tg(pi/2)

Sub Iter()
    Dim s As Double, pi As Double, e As Double, a As Double
    Dim i As Long, znak As Integer, k As Long
    e = InputBox("введите значение eps")
    pi = 4 * Atn(1)
    s = pi
    i = 2
    znak = 1
    k = 0
    a = Tan(pi / (2 * i))
    Do While a gt;= e
        s = s + znak * a
        i = i + 1
        a = Tan(pi / (2 * i))
        znak = -znak
        k = k + 1
    Loop
    MsgBox "Сумма одинакова " + Str(s) + ", количество слагаемых " + Str(k)
End Sub