算法-最大公约数(Delphi)

计算两个数的最大公约数

1. function gcd(m, n: Integer): Integer;
2. begin
3.   if n <> 0 then
4.   begin
5.     Result := gcd(n,m mod n);
6.   end
7.   else
8.   begin
9.     Result := m;
10.   end;
11. end;