Найдите количество натуральных чисел, не превосходящих 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
