Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] pascal经典算法 - 求两数的最小公倍数 →→→→→进入此内容的聊天室

来自 , 2019-02-24, 写在 Delphi (Object Pascal), 查看 137 次.
URL http://www.code666.cn/view/d064bf1a
  1. function lcm(a, b: Integer): Integer;
  2. begin
  3.   if a < b then
  4.     Swap(a, b);
  5.   lcm := a;
  6.   while lcm mod b > 0 do
  7.     Inc(lcm, a);
  8. end;

回复 "pascal经典算法 - 求两数的最小公倍数"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666