Найти количество четных чисел от 1 до 500, кратных 9. В VPA Microsoft Excel.

Question

Информатика

Рахиб

26 января, 06:34

Найти количество четных чисел от 1 до 500, кратных 9. В VPA Microsoft Excel.

+5

Ответы (1)

Знаете ответ?

Горрон · Answer 1

Public Sub mod ()

Dim i As Integer

Dim count As Integer

For i = 1 To 500

If (i Mod 9 = 0) Then

count = count + 1

End If

Next i

MsgBox (count)

End Sub