Strange plus numbers: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add BQN) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 385:
Strange plus numbers 100-500: 65
</pre>
=={{header|BASIC}}==
<lang gwbasic>10 DEFINT A-Z
20 FOR I=100 TO 500
30 N=I
40 R=N MOD 10
50 IF N<10 THEN PRINT I,: GOTO 100
60 L=R
70 N=N\10
80 R=N MOD 10
90 IF INSTR("CDFHLNR",CHR$(L+R+65)) THEN 50
100 NEXT I</lang>
{{out}}
<pre> 111 112 114 116 120
121 123 125 129 141
143 147 149 161 165
167 202 203 205 207
211 212 214 216 230
232 234 238 250 252
256 258 292 294 298
302 303 305 307 320
321 323 325 329 341
343 347 349 383 385
389 411 412 414 416
430 432 434 438 470
474 476 492 494 498</pre>
=={{header|BCPL}}==
| |||