Goldbach Conjecture

Album by MY OK BBS

About

  1. 1.
    CLS :KEY OFF :CLEAR
    2:08
  2. 2.
    PRINT "GOLDBACH'S CONJECTURE:" :PRINT
    2:57
  3. 3.
    PRINT "Every even number greater than 2 can be written as the sum of two primes." :PRINT
    3:31
  4. 4.
    INPUT "Enter a number ";T
    1:50
  5. 5.
    T=2*INT(T/2)
    2:11
  6. 6.
    N=0
    2:26
  7. 7.
    FOR K=3 TO T-3 STEP 2
    2:14
  8. 8.
    X=SQR(K)
    2:07
  9. 9.
    Z=0
    2:31
  10. 10.
    FOR J=3 TO X STEP 2
    2:47
  11. 11.
    IF K/J-INT(K/J)=0 THEN LET Z=Z+1
    3:01
  12. 12.
    NEXT J
    2:05
  13. 13.
    IF Z=0 THEN GOSUB 16
    3:04
  14. 14.
    NEXT K
    2:15
  15. 15.
    END
    2:01
  16. 16.
    L=T-K
    2:43
  17. 17.
    P=SQR(L)
    2:30
  18. 18.
    Y=0
    2:15
  19. 19.
    FOR M=3 TO P STEP 2
    2:29
  20. 20.
    IF L/M-INT(L/M)=0 THEN LET Y=Y+1
    2:04
  21. 21.
    NEXT M
    2:29
  22. 22.
    IF Y=0 AND L>K THEN LET N=N+1 :PRINT,,USING"######";N;K;L
    2:01
  23. 23.
    RETURN
    1:33

Reviews

Similar Releases