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