Sub task1()
    Dim x, result As Double
    x = Cells(1, 2)
    If x >= -3.5 Then
    result = 4 * x ^ 2 + 2 * x + 19
    End If
    If x < -3.5 Then
    result = -2 * x / (-4 * x + 1)
    End If
    Cells(2, 2) = result
End Sub

Sub task1()
    Dim years(13) As String
    Dim x As Integer
    x = Cells(1, 2)
    years(0) = "Êðûñà"
    years(1) = "Êîðîâà"
    years(2) = "Òèãð"
    years(3) = "Çàÿö"
    years(4) = "Äðàêîí"
    years(5) = "Çìåÿ"
    years(6) = "Ëîøàäü"
    years(7) = "Îâöà"
    years(8) = "Îáåçüÿíà"
    years(9) = "Êóðèöà"
    years(10) = "Ñîáàêà"
    years(11) = "Ñâèíüÿ"
    x = x Mod 12
    Cells(2, 2) = years(x)
End Sub

Sub task1()
    Dim x, num As Double
    x = Cells(1, 2)
    For i = 1 To x
    x = x + 1
    num = ((2 ^ (2 * x + 1)) + 1) / 3
    Cells(i, 1) = num
    Next i
End Sub

Sub task1()
    Dim result As Double
    result = 1
    For i = 1 To 999
    result = result * (1 + Math.Sin(0.1 * i))
    Next i
    Cells(1, 1) = result
End Sub


Sub task1()
    Dim result, n, a, b, f, check, res As Double
    n = 10
    check = 0.01
    For i = 1 To 5
    a = 1
    b = 1
            For c = 1 To i
                a = a * c
            Next c
            f = 2 ^ i
            For c = 1 To f
                b = b * c
            Next c
            result = a / b
            If result >= check Then
            res = res + result
            End If
    Next i
MsgBox res
End Sub