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