清除手机缓存软件:在Pascal中,如何求高精度最大公约数
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/08 17:32:56
时间越少越好
位数大于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;