---

Sub Task31()
    Dim i As Long
    ' Очистим первые два столбца перед выводом
    Columns("A:B").ClearContents 
    
    For i = 0 To 10
        ' Важно: пробелы вокруг знака & и оператора ^
        Cells(i + 1, 1).Value = "2 ^ " & i
        Cells(i + 1, 2).Value = 2 ^ i
    Next i
End Sub