中科新闻网自制人形立牌怎么做:用递归法，利用辗转相除法求两个非负整数的最大公约数
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 21:29:45
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.