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