Определить сумму чисел расположенных в диапазоне

@mordol · Регистрация: 12.05.2015

Author24 — интернет-сервис помощи студентам

Прошу проверить правильно ли я сделал программу у меня что то не сходится.
Задание разработать модуль для определения суммы чисел, расположенных в диапазоне от -10 до 7, которые делятся на 4.

Visual Basic

Public Sub n3()
Dim s As Integer
For i = -9 To 7 Step 4
s = s + i
Next
MsgBox "s=" & s
End Sub

SoftIce · 15.10.2017, 08:06

Сообщение от mordol

For i = -9 To 7 Step 4

Ну если желаете прыгать через 4 числа, то и начинать нужно было с числа, кратного четырем, и заканчивать таким.

Например

Visual Basic

Public Sub n4()
    Dim s As Integer
    For i = -8 To 4 Step 4
       s = s + i
    Next
    MsgBox "s=" & s
End Sub

Или или перебирать все числа подряд и проверять их кратность 4-м. Вот так

Visual Basic

Public Sub n5()
    Dim s As Integer
    For i = -10 To 7
      If i Mod 4 = 0 Then s = s + i
    Next
    MsgBox "s=" & s
End Sub

Оба варианта выдают -8. Правильно?

@mordol · 15.10.2017, 11:11 **[ТС]**

Сообщение от SoftIce

Оба варианта выдают -8. Правильно?

да, спасибо вам большое)

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
	15.10.2017, 11:11 [ТС]	3
	Сообщение от SoftIce Оба варианта выдают -8. Правильно? да, спасибо вам большое) 0

Опции темы

Определить сумму чисел расположенных в диапазоне

Решение