21 lines
372 B
Plaintext
21 lines
372 B
Plaintext
PRINT "Enter an integer"
|
|
INPUT N
|
|
IF N < 0 THEN LET N = -N
|
|
IF N < 2 THEN GOTO 100 + N
|
|
LET C = 1
|
|
LET F = 2
|
|
10 IF ((N/F)/F)*F*F = N THEN GOTO 100
|
|
IF (N/F)*F = N THEN GOTO 30
|
|
20 LET F = F + 1
|
|
IF F<=N THEN GOTO 10
|
|
GOTO 100 + C
|
|
30 LET N = N / F
|
|
LET C = -C
|
|
GOTO 20
|
|
99 PRINT "-1"
|
|
END
|
|
100 PRINT "0"
|
|
END
|
|
101 PRINT "1"
|
|
END
|