int delphi(int a,int b)
{
int i;
if a>b then
{i=max(a,b);
a=b;
b=i;}
do
{i=b mod a
if i!=0 then
{
b=a
a=i
}
}
while (i!=0)
return a
}
function gcd(a,b:integer):integer;
begin
if b=0 then gcd:=a
else
gcd:=gcd (b,a mod b);
end ;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024