Расчет количества нечетных чисел в заданном интервале значений - VBA
Формулировка задачи:
Ввод интервала осуществляется пользователем, через клавиатуру.
Заранее спасибо!
Решение задачи: «Расчет количества нечетных чисел в заданном интервале значений»
textual
Листинг программы
Sub Количество_нечетных()
A = Val(InputBox("A= ")): B = Val(InputBox("B= "))
MsgBox (B - (B + 1) Mod 2 - (A + (A + 1) Mod 2)) / 2 + 1
End Sub