Magnanimous numbers: Difference between revisions
Content added Content deleted
No edit summary |
(Added BASIC256) |
||
Line 293: | Line 293: | ||
391-400: 486685 488489 515116 533176 551558 559952 595592 595598 600881 602081 |
391-400: 486685 488489 515116 533176 551558 559952 595592 595598 600881 602081 |
||
</pre> |
</pre> |
||
=={{header|BASIC256}}== |
|||
<syntaxhighlight lang="vb">#include "isprime.kbs" |
|||
dim magn(400) |
|||
n = 10 |
|||
for i = 0 to 9 |
|||
magn[i] = i #all single digit ints are magnanimous by definition |
|||
next i |
|||
while i < 400 |
|||
n += 1 |
|||
ns = string(n) |
|||
for j = 1 to length(ns)-1 |
|||
lefty = left(ns, j) |
|||
righty = right(ns, length(ns)-j) |
|||
if not isPrime(int(lefty) + int(righty)) then continue while |
|||
next j |
|||
magn[i] = n |
|||
i += 1 |
|||
end while |
|||
for i = 0 to 44 |
|||
print i+1, magn[i] |
|||
next i |
|||
for i =240 to 249 |
|||
print i+1, magn[i] |
|||
next i |
|||
for i = 390 to 399 |
|||
print i+1, magn[i] |
|||
next i |
|||
end</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Same as FreeBASIC entry.</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |