pascal中如何计算最小公倍数?

请高人们勿编写函数!只用简单的while循环!谢!
(最好带上注释、讲解)

从大的个数开始，直到同时为两个数的倍数为止，下面的while结束后，c为a、b的最小公倍数：

if a>b then c:=a else c:=b;
while (c mod a<>0) or (c mod b<>0) do c:=c+1;
writeln(c,'是',a,'和',b,'的最小公倍数');

var a,b,c,q:qword; begin readln(a,b); q:=a*b; c:=a mod b; while c<>0 do begin a:=b; b:=c; c:=a mod b; end; writeln(q div b); end. 先要知道怎么求最小公倍数：两个数的乘机除以最大公倍数（q表示两个数的乘机，b表示最大公倍数） 求采纳

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息