Найдите количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2, 3, 5 - VB
Формулировка задачи:
Задано натуральное число н .Найдите кол-во натуральных чисел,не превосходящих н и не делящихся ни на одно из чисел 2,3,5
Напишите программный код на VisualBasic
Решение задачи: «Найдите количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2, 3, 5»
textual
Листинг программы
Function jester&(n&) Dim i& jester = (n \ 15) * 4 For i = (n \ 15) * 15 + 1 To n If i Mod 2 > 0 And i Mod 3 > 0 And i Mod 5 > 0 Then jester = jester + 1 Next End Function