Strange numbers: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 374:
</pre>
=={{header|BASIC}}==
<lang basic>10 DEFINT I,J,K: DEFSTR S
20 FOR I=100 TO 500
30 S=STR$(I)
40 FOR J=2 TO LEN(S)-1
50 K=ABS(VAL(MID$(S,J,1))-VAL(MID$(S,J+1,1)))
60 IF K<>2 AND K<>3 AND K<>5 AND K<>7 THEN 90
70 NEXT J
80 PRINT I,
90 NEXT I</lang>
{{out}}
<pre> 130 131 135 136 138
141 142 146 147 149
161 163 164 168 169
181 183 185 186 202
203 205 207 241 242
246 247 249 250 252
253 257 258 270 272
274 275 279 292 294
296 297 302 303 305
307 313 314 316 318
350 352 353 357 358
361 363 364 368 369
381 383 385 386 413
414 416 418 420 424
425 427 429 461 463
464 468 469 470 472
474 475 479 492 494
496 497</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
| |||