Ответы
Ответ дал:
0
Sub test()
Dim n As Long
n = InputBox("Введите целое число")
MsgBox IIf(n Mod 2 = 0, "Четное", "нечетное"), vbInformation
End Sub
Dim n As Long
n = InputBox("Введите целое число")
MsgBox IIf(n Mod 2 = 0, "Четное", "нечетное"), vbInformation
End Sub
Ответ дал:
0
Вводится на текущем листе Excel
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад