20 lines
307 B
Plaintext
20 lines
307 B
Plaintext
;XIncludeFile "isprime.pb"
|
|
|
|
OpenConsole()
|
|
Define.i sum, i, n
|
|
PrintN("1" + #TAB$ + "2" + #TAB$ + "2")
|
|
sum = 2
|
|
n = 1
|
|
For i = 3 To 999 Step 2
|
|
If isPrime(i):
|
|
sum + i
|
|
n + 1
|
|
If isPrime(sum):
|
|
PrintN(Str(n) + #TAB$ + Str(i) + #TAB$ + Str(sum))
|
|
EndIf
|
|
EndIf
|
|
Next i
|
|
|
|
Input()
|
|
CloseConsole()
|