Простые ли числа 31, 331, 3331, 33331, - QBasic

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

Требуется решить задачу. Являются ли числа вида 33...31 простыми? Программа выявила, что числа 31, 331, 3331, 33331, 333331, 3333331, 33333331 - простые. а вот число 333333331 - оказалось составным. А как дальше? бейсик не очень любит возиться с длинными числами...
REM   
REM  31, 331, 3331, ... , 33333331
REM  333333331 - составное число
REM
 
CLS
DIM p AS LONG
DIM p2 AS LONG
 
p = 31
 
DO
   p2 = SQR(p)
  
   FOR d = 7 TO p2
      IF p MOD d = 0 THEN 100
   NEXT
   PRINT p
   p = 10 * p + 21
   GOTO 200
100
   PRINT p; "***"
   IF p > 300000000 THEN EXIT DO
   p = 10 * p + 21
200
LOOP WHILE p < 400000000
END

Код к задаче: «Простые ли числа 31, 331, 3331, 33331, - QBasic»

textual
31 = Prime
331 = Prime
3331 = Prime
33331 = Prime
333331 = Prime
3333331 = Prime
33333331 = Prime
333333331 = 17*19607843
3333333331 = 673*4952947
33333333331 = 307*108577633
333333333331 = 19*83*211371803
3333333333331 = 523*3049*2090353
33333333333331 = 607*1511*1997*18199
333333333333331 = 181*1841620626151
3333333333333331 = 199*16750418760469
33333333333333331 = 31*1499*717324094199
333333333333333331 = Prime
3333333333333333331 = 1009*1303427*2534550017
33333333333333333331 = 29*29*1039*3389*11256299321
333333333333333333331 = 23*164844923*87917500639
3333333333333333333331 = 177943*18732590398798117
33333333333333333333331 = 61*179*241049*12664572810301
333333333333333333333331 = 312929*2228959*477893202221
3333333333333333333333331 = 17*821593951*238656128290493
 505,3555

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ