Anonymous user
Factors of an integer: Difference between revisions
→{{header|Nascom BASIC}}: Added
(→{{header|Nascom BASIC}}: Added) |
|||
Line 1,178:
==={{header|Minimal BASIC}}===
{{trans|GW-BASIC}}
{{works with|Nascom ROM BASIC|4.7}}
<lang gwbasic>
10 REM Factors of an integer
Line 1,191 ⟶ 1,192:
110 END
</lang>
==={{header|Nascom BASIC}}===
{{trans|GW-BASIC}}
{{works with|Nascom ROM BASIC|4.7}}
<lang basic>
10 REM Factors of an integer
20 INPUT "Enter an integer"; N
30 IF N=0 THEN 20
40 NA=ABS(N)
50 FOR I=1 TO INT(NA/2)
60 IF NA=INT(NA/I)*I THEN PRINT I;
70 NEXT I
80 PRINT NA
90 END
</lang>
{{out}}
<pre>
Enter an integer? 60
1 2 3 4 5 6 10 12 15 20 30 60
</pre>
See also [[#Minimal BASIC|Minimal BASIC]]
==={{header|Sinclair ZX81 BASIC}}===
| |||