Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатричной системе счисления. в vba

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

Код программы:var k:integer;beginread (k);if (k div 100 = 0) and (k div 10 <>0) then Writeln ('true') else writeln ('false');end.Обьяснение:описываем переменную (в нашем случае число целое)начинаем программу читаем переменную к с клавиатурысравниваем, если переменная к при делении нацело на 100 выдает результат 0 и при этом переменная к при делении нацело на 10 дает результат не равный нулю, выводим значение тру, иначе выводим значение нет. завершение программыНадеюсь мое объяснение вам Буду рад если вы отметите мое решение как лучшее(я шарю в паскале, поэтому если будут вопросы еще, пиши в лс)

Начнём с того, что эта программа даже не скомпилируется. Вы пытаетесь вывести какой-то неизвестный компилятору объект URA!, URAA! и так далее. Вместо этого Вам необходимо занести это под кавычки " " - так компилятор будет знать, что это строка, которую необходимо вывести в консоль.

Ход работы

если(5 < 4 и 2 > 5) = если(ложь и ложь) = если(ложь) - пропускаем это условие, переходим к следующему.

если(5 > 0 или 5 < 4) = если(истина или ложь) = если(истина) = условие выполняется, на консоль выводится надпись "URAA!";