可惜我不会。。郁闷ing
﹥ 癫⒊倒⒋啲生萿﹎還會不會_洅í繼х續﹎﹖
http://bbs.bc-cn.net/viewthread.php?tid=103210
已经在内了
1.求两数的最大公约数
function gcd(a,b:integer):integer;
begin
if b=0 then gcd:=a
else gcd:=gcd (b,a mod b);
end ;
2.求两数的最小公倍数
function lcm(a,b:integer):integer;
begin
if a<b then swap(a,b);
lcm:=a;
while lcm mod b>0 do inc(lcm,a);
end;
[此贴子已经被作者于2006-11-15 20:06:39编辑过]