初学、简单题、送100分~~

Question

很简单的pascal~~求教：
求两个数的最小公倍数~~没有范围限定还有是一个数列，就是大兔子生小兔子的那个数列
求什么时候兔子对数超过100，此时有多少对兔子？由是感激、拜托！！

Answer 1

int lcm(int a,int b)
{
int i;
i=b;
while(i%a)i+=b;
return(i);
}

Answer 2

我需要P A S C A L~~别人的例程~~不懂~谢谢啦！各位高手、麻烦抽时间辅导一下下一代。

Answer 3

function lcm(a:integer;b:integer):integer;
var
 i:integer;
begin
  i:=b;
  while (i mod a)<>0 do
  begin
   i:=i+b;
  end;
  result:=i;
end;