Найдите значения выражения: ((0& 0) v 0) & (1 v 1) , а то не знаю как решать.

Здесь надо заменить операцию & знаком ×, а ∨ - знаком +.
Получим обычное арифметическое выражение, которое можно вычислить. Единственное отличие от привычной арифметики в том, что 1+1=1, а не 2.

((0&0) v 0) & (1 v 1) = ((0×0)+0)×(1+1) = (0+0)×1 = 0×1 = 0

Знак & - логическое умножение. Как в обычном умножении 1*0 = 0, 0*1 = 0, 0*0 = 0, 1*1 = 1
знак V - логическое сложение, 0v0=0, 0v1=1, 1v0=1, 1v1=1;

первая скобка 0&0 = 0
затем 0v0 = 0, т.е. ((0&0) v 0) = 0
скобка 1v1 = 1
получаем 0 & 1 = 0.
ответ: 0

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

А еще можно без головной боли

// PascalABC.NET 3.0, сборка 1111
var
  a,b:BigInteger;
  sa,sb:string;
begin
  Write('Первое слагаемое: '); Readln(sa);
  if BigInteger.TryParse(sa,a)=False then Writeln('Это не целое число!')
  else begin
    Write('Второе слагаемое: '); Readln(sb);
    if BigInteger.TryParse(sb,b)=False then Writeln('Это не целое число!')
    else Writeln('Точный результат: ',a+b)
    end
end.

Тестовое решение:
Первое слагаемое: 5423323409523846095938445870434764308454095
Второе слагаемое: 7425543205430235436743455446541423534233
Точный результат: 5430748952729276331375189325881305731988328