Вычисление суммы факториалов всех четных чисел от m до n - VB

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

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

Составить программу в бейсике для вычисления суммы факториалов всех четных чисел от m до n

Решение задачи: «Вычисление суммы факториалов всех четных чисел от m до n»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
Dim f as long, s as long, n As Integer, m As Integer, i As Integer
f = 1
n = InputBox("Введите n")
m = InputBox("Введите m")
For i = 1 To m
  f = f * i
  if i mod 2=0 and i>=n then s=s+f
Next i
Print s
 
End Sub

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


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

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

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