Magnanimous numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (add Cowgol) |
Not a robot (talk | contribs) (add BASIC) |
||
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|BASIC}}== |
|||
<syntaxhighlight lang="gwbasic">10 DEFINT A-Z |
|||
20 L = N : R = 0 : S = 1 |
|||
30 IF L < 10 GOTO 140 |
|||
40 R = R + (L MOD 10) * S |
|||
50 L = L \ 10 |
|||
60 S = S * 10 |
|||
70 P = R + L |
|||
80 IF P = 1 GOTO 120 ELSE FOR D = 2 TO SQR(P) |
|||
90 IF P MOD D = 0 GOTO 120 |
|||
100 NEXT D |
|||
110 GOTO 30 |
|||
120 N = N + 1 |
|||
130 GOTO 20 |
|||
140 I = I + 1 |
|||
150 IF I = 1 THEN PRINT "1 - 45:" ELSE IF I = 241 THEN PRINT "241 - 250:" |
|||
160 IF I <= 45 OR I > 240 THEN PRINT N, |
|||
170 N = N + 1 |
|||
180 IF I < 250 GOTO 20 |
|||
190 END</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1 - 45: |
|||
0 1 2 3 4 |
|||
5 6 7 8 9 |
|||
11 12 14 16 20 |
|||
21 23 25 29 30 |
|||
32 34 38 41 43 |
|||
47 49 50 52 56 |
|||
58 61 65 67 70 |
|||
74 76 83 85 89 |
|||
92 94 98 101 110 |
|||
241 - 250: |
|||
17992 19972 20209 20261 20861 |
|||
22061 22201 22801 22885 24407</pre> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |