欧氏算法求最大公约数

作者: 四川泸州二中 陈剑 | 1992-06-05

10 INPUT "M,N=";M,N
20 P=INT(M/N)：R=M-N*P:IF R=0 THEN PRINT "N=";N:END
30 M=N:N=R:GOTO 20