Расчет количества нечетных чисел в заданном интервале значений - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
