Triplet of three numbers: Difference between revisions
Content added Content deleted
(Triplet of three numbers en True BASIC) |
(Triplet of three numbers en BASIC256) |
||
Line 203: | Line 203: | ||
5,654: 5,653 5,657 5,659 |
5,654: 5,653 5,657 5,659 |
||
5,738: 5,737 5,741 5,743</pre> |
5,738: 5,737 5,741 5,743</pre> |
||
=={{header|BASIC256}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang BASIC256> |
|||
N = 6000 |
|||
dim p(N+6) |
|||
for i = 2 to sqr(N) |
|||
if not p[i] then |
|||
for j = i*2 to N step i |
|||
p[j] = 1 |
|||
next j |
|||
end if |
|||
next i |
|||
for i = 3 to N |
|||
if (p[i-1] or p[i+3] or p[i+5]) then |
|||
# en BASIC256 no exite un comando CONTINUE |
|||
else |
|||
print i; ": "; i-1; " "; i+3; " "; i+5 |
|||
end if |
|||
next i |
|||
end |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Similar a la entrada de FreeBASIC. |
|||
</pre> |
|||
=={{header|BCPL}}== |
=={{header|BCPL}}== |