Программа для вычисления суммы факториалов - VB

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

здравствуйте кто знает как сделать такое задание : Составить программу вычисления суммы: 2! + 4! + … + n! (n <= 20, n - четное). с использованием процедур Примечание: Тип результата значения функции — LongInt. ....я заю только как написать код для нахождения факториала

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Private Sub Command1_Click()
Dim f, m, i As Integer
f = 1
m = InputBox(" факториал числа")
For i = 1 To m
f = f * i
Next i
Print f
 
End Sub

....

Решение задачи: «Программа для вычисления суммы факториалов»

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

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

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

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

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

Похожие ответы