18 lines
582 B
Plaintext
18 lines
582 B
Plaintext
100 DIM SC(2): SC = 0: REM REMEMBER SQUARE CUBES
|
|
110 PRINT "SQUARES BUT NOT CUBES:"
|
|
120 N = 0: REM NUMBER OF NON-CUBE SQUARES FOUND
|
|
130 SR = 1: REM CURRENT SQUARE ROOT
|
|
140 CR = 1: CU = 1: REM CURRENT CUBE ROOT AND CUBE
|
|
150 REM BEGIN LOOP
|
|
160 : IF N >= 30 THEN 230
|
|
170 : SQ = SR * SR
|
|
180 : IF SQ > CU THEN CR = CR + 1: CU = CR*CR*CR: GOTO 180
|
|
190 : IF SQ = CU THEN SC(SC) = SQ: SC = SC + 1
|
|
200 : IF SQ < CU THEN N = N + 1:PRINT SQ,
|
|
210 : SR = SR + 1
|
|
220 GOTO 160: REM END LOOP
|
|
230 PRINT: PRINT
|
|
240 PRINT "BOTH SQUARES AND CUBES:"
|
|
250 FOR I=0 TO SC-1: PRINT SC(I),: NEXT I
|
|
260 PRINT
|