Largest proper divisor of n: Difference between revisions
add gwbasic
m (→{{header|Ring}}: aligned columns) |
(add gwbasic) |
||
Line 826:
13 46 31 47 19 48 1 49 33 50
</pre>
=={{GW-BASIC}}==
<lang gwbasic>10 PRINT 1;
20 FOR I = 1 TO 101
30 FOR D = I\2 TO 1 STEP -1
40 IF I MOD D = 0 THEN PRINT D; : GOTO 60
50 NEXT D
60 NEXT I</lang>
=={{header|Haskell}}==
| |||