Вывести все простые числа из интервала от 2 до N - VB

Узнай цену своей работы

Формулировка задачи:

Помогите с решением задач, пожалуйста!( а то не пойму как их решить). Задача 2. Дано натуральное число N>2.Вывести все простые числа из интервала от 2 до N. Спасибо заранее.))))

Решение задачи: «Вывести все простые числа из интервала от 2 до N»

textual
Листинг программы
Option Explicit 
 
Sub Простые_числа() 
Dim I As Long, N As Long 
 
N = InputBox("Введите верхний предел -") 
 
Debug.Print 2 
For I = 3 To N Step 2 
  If isSimple(I) Then 
    Debug.Print I 
  End If 
Next I 
 
End Sub 
 
Function isSimple(I As Long) As Byte 
Dim J As Long 
 
  For J = 3 To Int(Sqr(I)) Step 2 
    If (I Mod J) = 0 Then Exit Function 
  Next J 
  isSimple = 1 
End Function

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


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

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

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