Вычислить сумму целых положительных чисел, больших М, меньших N и кратных K - VB

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

Помогите пожалуйста решить задачи Даны натуральные числа M, N, k. Написать программу для вычисления суммы целых положительных чисел, больших М, меньших N и кратных k. Полученное число вывести на экран.

Решение задачи: «Вычислить сумму целых положительных чисел, больших М, меньших N и кратных K»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub main()
   Dim M As Integer, N As Integer, k As Integer, a1 As Integer, an As Integer
    M = 5
    N = 122
    k = 3
    a1 = (M + k) \ k
    an = (N - 1) \ k
    MsgBox k / 2 * (a1 + an) * (an - a1 + 1)
End Sub

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

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

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

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

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