Triplet of three numbers: Difference between revisions
Triplet of three numbers en True BASIC
(Triplet of three numbers en Python) |
(Triplet of three numbers en True BASIC) |
||
Line 1,652:
[8, 14, 38, 68, 98, 104, 194, 224, 278, 308, 458, 614, 824, 854, 878, 1088, 1298, 1424, 1448, 1484, 1664, 1694, 1784, 1868, 1874, 1994, 2084, 2138, 2378, 2684, 2708, 2798, 3164, 3254, 3458, 3464, 3848, 4154, 4514, 4784, 5228, 5414, 5438, 5648, 5654, 5738]
</pre>
=={{header|True BASIC}}==
{{trans|FreeBASIC}}
<lang basic>
LET n = 6000
DIM p(0)
MAT REDIM p(n)
FOR i = 2 TO SQR(n)
IF (NOT p(i) <> 0) THEN
FOR j = i*2 TO n STEP i
LET p(j) = 1
NEXT j
END IF
NEXT i
FOR i = 3 TO n
IF (p(i-1) <> 0 OR p(i+3) <> 0 OR p(i+5) <> 0) THEN
! en TB no exite un comando CONTINUE
ELSE
PRINT USING "####: #### #### ####": i, i-1, i+3, i+5
END IF
NEXT i
END
</lang>
{{out}}
<pre>
Similar a la entrada de FreeBASIC.
</pre>
=={{header|Wren}}==
| |||