Вычислить сумму целых положительных чисел, больших М, меньших 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