Anonymous user
Factors of an integer: Difference between revisions
no edit summary
No edit summary |
|||
Line 680:
16383 , 32766
</pre>
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 PROGRAM "Factors.bas"
110 INPUT PROMPT "Number: ":N
120 FOR I=1 TO INT(N/2)
130 IF MOD(N,I)=0 THEN PRINT I;
140 NEXT
150 PRINT N</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||