Расчет количества нечетных чисел в заданном интервале значений - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы