Найти произведение нечетных чисел от 1 до n - VB

Узнай цену своей работы

Формулировка задачи:

n вводится с клавиатуры помогите пожалуйста, я сама в этом ничего не понимаю, очень надо, заранее спасибо)

Решение задачи: «Найти произведение нечетных чисел от 1 до n»

textual
Листинг программы
  1. Function ДВФАКТР(ByVal N As Integer) As Double
  2. ДВФАКТР = N
  3. While N > 2
  4.   N = N - 2
  5.   ДВФАКТР = ДВФАКТР * N
  6. Wend
  7. End Function
  8.  
  9. sub main
  10. dim n as integer
  11. n=inputbox("Введите нечётное число:") 'проверку на нечётность и число ли опускаю - тем на эти темы море
  12. msgbox ДВФАКТР(n)
  13. end sub

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


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

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

11   голосов , оценка 3.818 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы