---

Sub CalculateSumAlt()
    Dim x As Double, s As Double, t As Double, i As Integer, n As Integer
    
    x = 0.5
    s = 0
    t = 1       ' x^0 = 1 (знак +)
    i = 0
    
    Do
        s = s + t
        If Abs(t) <= 0.0001 Then Exit Do
        t = -t * x
        i = i + 1
    Loop
    
    n = i + 1
    
    ' Красивый вывод
    Range("A1").Value = "Сумма знакочередующегося ряда 1-x+x^2-... (x=0,5) с точностью ≤0,0001:"
    Range("B1").Value = Round(s, 4)
    Range("A2").Value = "Количество слагаемых:"
    Range("B2").Value = n
    Range("A1:B2").Font.Bold = True
    Columns("A:B").AutoFit
End Sub