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