---

Sub CalculateSum()
    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
    i = 0
    
    Do
        s = s + t
        If t <= 0.0001 Then Exit Do
        t = t * x
        i = i + 1
    Loop
    
    n = i + 1   ' количество слагаемых
    
    ' Вывод результатов в ячейки
    Range("A1").Value = s
    Range("A2").Value = n
    Range("A3").Value = "Сумма"
    Range("A4").Value = "Количество слагаемых"
End Sub