Определить является ли число простым - VB

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

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

Помогите,пожалуйста, решить задачку)))) Дано натуральное число n. Определить, является ли оно простым.

Решение задачи: «Определить является ли число простым»

textual
Листинг программы
   Dim n, i
   n = InputBox("Vvedite N")
   If n=2 Then MsgBox "Простое", , "2 - простое число": Exit Sub 
   If n Mod 2 = 0 Then MsgBox "Не простое", , "Чётное": Exit Sub
   
   For i = 3 To n Step 2
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      m = n \ i 'верхняя граница приближается
      If i > m Then Exit For
   Next i
   MsgBox "Простое"

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


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

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

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