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