1樓：匿名使用者
其實 沒這麼麻煩的 用兩個數的乘積/最大公約數 就是最小公倍數
（用pascal語言）求兩個整數的最小公倍數,輸入整數a，b,輸出a，b的最小公倍數（全過程）
2樓：匿名使用者
vara, b: integer;//兩個整bai數du
res: integer;//最小公倍數zhibegin
readln(a);//讀取第乙個整數
readln(b);//讀取第二個整數
res := b;//認為最小公倍數的起始值dao為bif a > b then
res := a;//如果a>b, 那麼最小公倍數起始值為arepeat
inc(res);//res遞加
until (res mod a = 0) and (res mod b = 0);//是最小公倍數就退出
writeln(res);//輸出最小公倍數readln;
end.//附上執行截圖
3樓：匿名使用者
varm,n,b:integer;
begin
readln(m,n);
if m>n then b:=m
else b:=n;
while not ((b mod n=0)and(b mod m=0)) do inc(b);
writeln(b);
readln;
end.
4樓：匿名使用者
我不會pascal，就用c++試下吧，讓後面高手來#includeusing namespace std;int main( )cout<<"最大公約數為："<倍數為："<這只能專算是一種演算法吧，屬，，，不好意思了
5樓：匿名使用者
var m,n,r,a,b:int64;
begin
readln(m,n);//(輸入兩制
個數);
a:=m;
b:=n;
r:=m mod n;
while r<>0 do(用輾轉法求最大公約數);
begin
m:=n;
n:=r;
r:=m mod n;
end;
write(a*b div n);(利用m*n=(m,n)*[m,n]);
end.
pascal求最小公倍數和最大公約數
6樓：
vara,b,i:integer;
begin
readln(a,b);
for i:=a to 1 do if (a mod i=0) and (b mod i=0)then writeln(i);
end. //公約數vara,b,i:integer;
begin
readln(a,b);
i:=1;
repeat
inc(i);
until a*i mod b=0;
end. //公倍數
7樓：匿名使用者
jkhk hjbnbfjuyyj
分數的最小公倍數怎麼求，最小公倍數怎麼算
我是秀兒 不管有多少個分數，先把它們化為同分母的分數，用得到的分子求出最小公倍數，再用這個最小公倍數與分母約分就得到眾分數的最小公倍數。如 求7分之2和5分之4的最小公倍數，化為同分母分數得35分之10和35分之28，再求10與28的最小公倍數得140，得兩分數的最小公倍數為35分之140，化簡得4...
10 3 8的最小公倍數，8，3，10的最小公倍數！！！！！！！！！！！！！急急急急急急急急急急急急急急急急急急急快快快快快
10 3 8的最小公倍數120.最小公倍數數是120望採納 8和10和3的最小公倍數是120。首先看8和10和3公有的因數是2，8除以2 4，10除以2 5，把3落下來，所得的商是4和5和3，這三個數是互質數，他們的公因數只有一了，這樣把除數和商連乘起來是2乘4乘5乘3 120，所以把所有的除數和商...
16 63 56怎麼求最小公倍數
把這三個數都分解質因數 16 2 2 2 2 63 3 3 7 56 7 2 2 2 它們公有的因數是 2 2 2 7 另外還剩下3。3。2 然後把剩下的因數與公有的因數相乘 2 2 2 7 3 3 2 1008 16 2x2x2x2 63 7x3x3 56 7x2x2x2 最小公倍數就是2x2x2...