主题：一个公认的难题
lidifei
[专家分：0] 发布于 2005-04-06 19:48:00
求两个数的最小公倍数和最大公约数?
回复列表 （共2个回复）
沙发
xuzhenyi [专家分：850] 发布于 2005-04-06 20:27:00
辗转相除判余法 最大公约数
var m,n,a,b,r:longint;
begin
readln(m,n);
a:=m;b:=n;
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
write(b);
end.
板凳
xuzhenyi [专家分：850] 发布于 2005-04-06 20:33:00
最小公倍数
最后加一句
write(m*n/b);
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 一个公认的难题