Anonymous user
Factors of an integer: Difference between revisions
→{{header|ASIC}}: Added
(→{{header|Minimal BASIC}}: Modified to display only positive factors (even for negative data).) |
(→{{header|ASIC}}: Added) |
||
Line 1,097:
</pre>
==={{header|ASIC}}===
{{trans|GW-BASIC}}
<lang basic>
REM Factors of an integer
PRINT "Enter an integer";
LOOP:
INPUT N
IF N = 0 THEN LOOP:
NA = ABS(N)
NDIV2 = NA / 2
FOR I = 1 TO NDIV2
NMODI = NA MOD I
IF NMODI = 0 THEN
PRINT I;
ENDIF
NEXT I
PRINT NA
END</lang>
{{out}}
<pre>
Enter an integer?60
1 2 3 4 5 6 10 12 15 20 30 60
</pre>
==={{header|BASIC256}}===
Line 1,231 ⟶ 1,255:
Igual que la entrada de FreeBASIC.
</pre>
=={{header|Batch File}}==
| |||