杭州交通信息网子宫肌瘤b超回声欠均匀:用递归法，利用辗转相除法求两个非负整数的最大公约数
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 12:07:24
var
x,y,i,j:integer;
begin
readln(x,y);
if x>=y then i:=x-y else i:=y-x;
if x>=y then
begin
if i>=y then j:=i-y
else j:=y-i;
end
else
begin
if i>=x then j:=i-x
else j:=x-i;
end;
repeat
if (i=0) or (j=0) then break;
if i>=j then i:=i-j
else j:=j-i;
until (i=0) or( j=0);
if i=0 then writeln(j)
else writeln(i);
end.