7 lines
150 B
Text
7 lines
150 B
Text
10 INPUT "Enter an integer: "; N
|
|
20 IF N = 0 THEN GOTO 10
|
|
30 N1 = ABS(N)
|
|
40 FOR I = 1 TO N1/2
|
|
50 IF N1 MOD I = 0 THEN PRINT I;
|
|
60 NEXT I
|
|
70 PRINT N1
|