Найдите количество натуральных чисел, не превосходящих 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы