---

' Задача 31: Степени двойки
Sub Task31()
    Dim i As Long
    For i = 0 To 10
        Cells(i + 1, 1).Value = "2 ^ " & i
        Cells(i + 1, 2).Value = 2 ^ i
    Next i
End Sub

' Задача 11: Таблица функции (вывод в столбцы D и E)
Sub Task11()
    Dim i As Integer
    Dim x As Double, y As Double
    Dim r As Integer: r = 1
    For i = 0 To 40
        x = -4 + (i * 0.2)
        y = 2 * (x ^ 2) - 5 * x - 8
        Cells(r, 4).Value = x
        Cells(r, 5).Value = y
        r = r + 1
    Next i
End Sub

' Задача 21: Расписание автобуса (вывод в столбец G)
Sub Task21()
    Dim t As Date
    Dim r As Integer: r = 1
    t = TimeValue("06:00:00")
    Do While t <= TimeValue("23:59:00")
        Cells(r, 7).Value = Format(t, "HH:mm")
        t = DateAdd("n", 45, t)
        r = r + 1
        If r > 100 Then Exit Do
    Loop
End Sub