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

Узнай цену своей работы

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

Требуется решить задачу. Являются ли числа вида 33...31 простыми? Программа выявила, что числа 31, 331, 3331, 33331, 333331, 3333331, 33333331 - простые. а вот число 333333331 - оказалось составным. А как дальше? бейсик не очень любит возиться с длинными числами...
Листинг программы
  1. REM
  2. REM 31, 331, 3331, ... , 33333331
  3. REM 333333331 - составное число
  4. REM
  5. CLS
  6. DIM p AS LONG
  7. DIM p2 AS LONG
  8. p = 31
  9. DO
  10. p2 = SQR(p)
  11. FOR d = 7 TO p2
  12. IF p MOD d = 0 THEN 100
  13. NEXT
  14. PRINT p
  15. p = 10 * p + 21
  16. GOTO 200
  17. 100
  18. PRINT p; "***"
  19. IF p > 300000000 THEN EXIT DO
  20. p = 10 * p + 21
  21. 200
  22. LOOP WHILE p < 400000000
  23. END

Решение задачи: «Простые ли числа 31, 331, 3331, 33331,»

textual
Листинг программы
  1. 31 = Prime
  2. 331 = Prime
  3. 3331 = Prime
  4. 33331 = Prime
  5. 333331 = Prime
  6. 3333331 = Prime
  7. 33333331 = Prime
  8. 333333331 = 17*19607843
  9. 3333333331 = 673*4952947
  10. 33333333331 = 307*108577633
  11. 333333333331 = 19*83*211371803
  12. 3333333333331 = 523*3049*2090353
  13. 33333333333331 = 607*1511*1997*18199
  14. 333333333333331 = 181*1841620626151
  15. 3333333333333331 = 199*16750418760469
  16. 33333333333333331 = 31*1499*717324094199
  17. 333333333333333331 = Prime
  18. 3333333333333333331 = 1009*1303427*2534550017
  19. 33333333333333333331 = 29*29*1039*3389*11256299321
  20. 333333333333333333331 = 23*164844923*87917500639
  21. 3333333333333333333331 = 177943*18732590398798117
  22. 33333333333333333333331 = 61*179*241049*12664572810301
  23. 333333333333333333333331 = 312929*2228959*477893202221
  24. 3333333333333333333333331 = 17*821593951*238656128290493
  25.  505,3555

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы