По заданному числу определить ближайшее простое - QBasic

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

Задается натуральное число на интервале [1; 2 147 483 647] Требуется определить ближайшее простое число не превосходящее заданного. Для числа 1 такого числа не существует и программа просто выдает на экран 1. примечание число 2 147 483 647 - простое

CLS
DIM p AS LONG
DIM n AS LONG
DIM d AS LONG
 
INPUT "N = "; n
 
IF n MOD 2 = 0 THEN n = n - 1
IF n < 7 THEN PRINT n: END
 
FOR p = n TO 7 STEP -2
   dm = SQR(p)
 
   FOR d = 3 TO dm STEP 2
      IF p MOD d = 0 THEN 700
   NEXT d
 
   PRINT p
   END
700
NEXT p
END

Решение задачи: «По заданному числу определить ближайшее простое»

Листинг программы

IF n MOD 2 = 0 AND n <> 2 THEN n = n - 1

Объяснение кода листинга программы

Проверяется, является ли число n четным (n MOD 2 = 0)
Если число n четное и не равно 2, то оно уменьшается на 1 (n = n - 1)
Иначе, выполняется основной код программы

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

12 голосов , оценка 4.083 из 5

Похожие ответы