Factors of an integer: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 680: | Line 680: | ||
16383 , 32766 |
16383 , 32766 |
||
</pre> |
</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}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |
||