Factors of an integer: Difference between revisions
Content added Content deleted
(→{{header|Minimal BASIC}}: Added) |
(→{{header|GW-BASIC}}: Modified to display only positive factors (even for negative data).) |
||
Line 1,127: | Line 1,127: | ||
10 INPUT "Enter an integer: ", N |
10 INPUT "Enter an integer: ", N |
||
20 IF N = 0 THEN GOTO 10 |
20 IF N = 0 THEN GOTO 10 |
||
30 |
30 NA = ABS(N) |
||
40 |
40 FOR I = 1 TO NA/2 |
||
50 IF NA MOD I = 0 THEN PRINT I; |
|||
50 NEXT I |
|||
60 |
60 NEXT I |
||
70 PRINT NA</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 1,140: | Line 1,141: | ||
1 13 |
1 13 |
||
Enter an integer: -22222 |
Enter an integer: -22222 |
||
1 2 41 82 271 542 11111 |
1 2 41 82 271 542 11111 22222 |
||
</pre> |
</pre> |
||