Як розшифровується речення Якщо зайдеш на серче, то знайдеш багато нубів. Вони часто влаштовують там лінкомийкую. Офтоп та флуд притаманні кожному нубу, який бездумно жме батони та топче кебарду. На них чатують справжні кібер-бики.

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

ответ:

4) Сместиться на (-28, -11)

Объяснение:

Изначально Чертёжник находится в точке (0, 0). Чтобы узнать какую команду необходимо выполнить Чертёжнику, чтобы вернуться в исходную  точку (0, 0), нужно узнать в какой он точке окажется после выполнения алгоритма. Пройдёмся по алгоритму, отслеживая координаты Чертёжника.

Сместиться на (4, -2)

Координаты: (4, -2).

Повтори 5 разСместиться на (2, 5)Сместиться на (4, -1)Конец

Смещение: (5 * (2+4), 5 * (5-1)) = (30, 20).

Координаты: (4 + 30, -2 + 20) = (34, 18).

Сместиться на (-6, –7)

Координаты: (34 - 6, 18 - 7) = (28, 11).

Следовательно, чтобы вернуться в исходную  точку (0, 0), нужно выполнить команду Сместиться на (-28, -11).