Найти количество четных чисел от 1 до 500, кратных 9. в vpa microsoft excel.

alina17anilaalina alina17anilaalina    2   23.09.2019 19:50    0

Ответы
132427 132427  08.10.2020 13:10
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика