Anonymous user
Factors of an integer: Difference between revisions
→{{header|Minimal BASIC}}: Added
(→{{header|Minimal BASIC}}: Added) |
|||
Line 1,150:
140 NEXT
150 PRINT N</lang>
==={{header|Minimal BASIC}}===
{{trans|GW-BASIC}}
<lang gwbasic>
10 REM Factors of an integer
20 PRINT "Enter an integer";
30 INPUT N
40 IF N = 0 THEN 30
50 FOR I = 1 TO ABS(N)/2
60 IF INT(N/I)*I <> N THEN 80
70 PRINT I;
80 NEXT I
90 PRINT N
100 END
</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||