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

Question

Информатика

Веда

20 января, 21:07

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

+4

Ответы (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