辗转相除noip

function gcd(a,b:longint):longint;
begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b);
end;

辗转相除是求最大公约数的一种方法.如求32和24的最大公约数
先32除以24余数是8.再用24除数8.余数是0.照这样的方法一直除到余数为0.
0前边的余数就是最大公约数.