中金国泰郑建龙人品:在Pascal中,如何求高精度最大公约数
来源:百度文库 编辑:中科新闻网 时间:2024/10/03 14:33:48
时间越少越好
位数大于300
位数大于300
function Gcd(m: Integer; n: Integer): Integer;
var
t: Integer;
begin
t:=m mod n;
while t<>0 do
begin
m := n;
n := t;
t := m mod n
end;
Gcd := t;
end;