Sub mit()
    Dim a%, x!, xe!, leptet%
    leptet = 1
    a = 1
    Do
        x = 1: Cells(1 + leptet, 1) = x
        Do
            xe = x
            x = (xe + a / xe) / 2
            Cells(leptet + 1, 3) = x
            leptet = leptet + 1
        Loop Until Abs(x - xe) < 0.1
       
        a = a + 1
    Loop Until a > 2

End Sub

EXCELL munkalap