Соотношения между простыми числами (2) - QBasic

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

Найти на интервале [1; 20000] два простых, рядом стоящих числа, расстояние между которыми наибольшее из всех пар чисел этого интервала. Числа объявились. Это 19609 и 19661. Разница - 52.

REM
REM  max = 52; 19609 19661
REM
 
CLS
p1 = 11
max = 2
 
FOR p = 13 TO 20000 STEP 2
   FOR d = 3 TO p - 1 STEP 2
      IF p MOD d = 0 THEN 100
   NEXT
   IF max < p - p1 THEN
      max = p - p1
      q = p
      q1 = p1
   END IF
   p1 = p
100
NEXT p
PRINT max; q1; q
END

Решение задачи: «Соотношения между простыми числами (2)»

textual
                            Листинг программы 
                        
                            FOR d = 3 TO p - 1 STEP 2

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

9 голосов , оценка 4.111 из 5

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