---

' Задача 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: Таблица функции (исправленная через целые числа для точности)
Sub Task11()
    Dim i As Integer
    Dim x As Double, y As Double
    Dim row As Integer: row = 1
    
    For i = 0 To 40 ' от -4 до 4 с шагом 0.2 — это 40 шагов
        x = -4 + (i * 0.2)
        y = 2 * (x ^ 2) - 5 * x - 8
        Cells(row, 4).Value = x ' выводим в столбец D
        Cells(row, 5).Value = y ' выводим в столбец E
        row = row + 1
    Next i
End Sub

' Задача 21: Расписание автобуса (через DateAdd)
Sub Task21()
    Dim currentTime As Date
    Dim row As Integer: row = 1
    
    currentTime = TimeValue("06:00:00")
    
    Do While currentTime <= TimeValue("23:59:00")
        Cells(row, 7).Value = Format(currentTime, "HH:mm")
        ' Прибавляем ровно 45 минут
        currentTime = DateAdd("n", 45, currentTime)
        row = row + 1
        ' Защита от бесконечного цикла, если время перевалит за полночь
        If row > 100 Then Exit Do 
    Loop
End Sub