Задано натуральное число n. Найти количество натуральных чисел , не превышающих n и не делящихся ни на одно из чисел 2, 3, 5. VBA

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи воспользуемся следующим кодом на VBA:

Function CountNumbers(n As Integer) As Integer
Dim count As Integer
count = 0
For i = 1 To n
If i Mod 2 <> 0 And i Mod 3 <> 0 And i Mod 5 <> 0 Then
count = count + 1
End If
Next i
CountNumbers = count
End Function
Sub Main()
Dim n As Integer
n = InputBox("Введите натуральное число n:")
MsgBox "Количество чисел, не превышающих " & n & " и не делящихся ни на одно из чисел 2, 3, 5: " & CountNumbers(n)
End Sub

Просто скопируйте этот код в свой проект VBA (например, в Excel) и запустите процедуру Main(). В появившемся диалоговом окне введите натуральное число n, для которого нужно найти количество подходящих чисел. Программа выведет ответ в сообщении.