10 lines
239 B
Text
10 lines
239 B
Text
10 FOR n=1 TO 3
|
|
20 READ a,b
|
|
30 PRINT "GCD of ";a;" and ";b;" = ";
|
|
40 GO SUB 70
|
|
50 NEXT n
|
|
60 STOP
|
|
70 IF b=0 THEN PRINT ABS (a): RETURN
|
|
80 LET c=a: LET a=b: LET b=FN m(c,b): GO TO 70
|
|
90 DEF FN m(a,b)=a-INT (a/b)*b
|
|
100 DATA 12,16,22,33,45,67
|