23 lines
552 B
Plaintext
23 lines
552 B
Plaintext
10 DEFINT A,B,I,J,S: DIM S(1200)
|
|
20 S(1)=1: S(2)=1
|
|
30 FOR I=2 TO 600
|
|
40 S(I*2-1)=S(I)+S(I-1)
|
|
50 S(I*2)=S(I)
|
|
60 NEXT I
|
|
70 PRINT "First 15 elements: ";
|
|
80 FOR I=1 TO 15: PRINT USING"# ";S(I);: NEXT I
|
|
85 PRINT
|
|
90 FOR I=1 TO 10
|
|
100 FOR J=1 TO 1200: IF S(J)<>I THEN NEXT J
|
|
110 PRINT "First";I;"at";J
|
|
120 NEXT I
|
|
130 FOR J=1 TO 1200: IF S(J)<>100 THEN NEXT J
|
|
140 PRINT "First 100 at";J
|
|
150 FOR I=2 TO 1000
|
|
160 A=S(I): B=S(I-1)
|
|
170 J=A: A=B: B=J MOD A: IF B THEN 170
|
|
180 IF A<>1 THEN PRINT "GCD <> 1 at ";I: STOP
|
|
190 NEXT I
|
|
200 PRINT "All GCDs are 1."
|
|
210 END
|