Составить программу (желательно для libreoffice, но подойдет и для vba) : нужно составить программу s = pi - tg(pi/2) + tg(pi/4) - tg(pi/6) + tg(pi/8) - расчет производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности е. подсчитать число слагаемых. значение е задать вводом.

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 >= 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