g eazy halsey:在Pascal中,如何求高精度最大公约数
来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 11:00:46
时间越少越好
位数大于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;