怎样用pascal编程求出两数的最小公约数和最小公倍数（不用函数）.

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/07/14 12:49:19

设有两整数 a,b
【最大公约数】辗转相除法求gcd(a,b)
repeat
r := a mod b;
a := b;
b := r;
until r = 0;
最后结果在a里面
【最小公倍数】
求最小公倍数时,先求出最大公约数(保存在n里）,然后
ans := a * b div n;
注意求最小公倍数时要保存a,b两个原数
【完整程序】
var
a,b,n,m,ans1,ans2 : integer; {ans1为最大公约数,ans2为最小公倍数}
begin
readln(a,b);
n := a;
m := b;
{辗转相除求最大公约数}
repeat
r := n mod m;
n := m;
m := r;
until r = 0;
ans1 := n;
{求最小公倍数}
ans2 := a * b div ans1;
writeln(ans1,ans2);
end.
纯手打,望采纳

怎样用pascal编程求出两数的最小公约数和最小公倍数（不用函数）. 用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数编写函数fun求两个整数的最小公约数和最小公倍数.同时写出测试用的主函数. 15和5的最小公倍数是最小公约数的（）倍,他们的即时最大公约数的（）,这个倍数就是这两个数的（）. 怎样用分解质因数来求出两个数的最小公倍数两个数的最小公倍数是300,最小公约数是15,已知其中一个数是75,求另一个数是多少 Pascal语言求两个数的最小公倍数和最大公约数急：C++编程：求两正整数的最大公约数和最小公倍数,用一个函数求最大公约数,另外一个函数求最小公倍数. 36是12和18的?有下面几个选择,我觉得第二和第四都对.如下：1、公约数 2、公倍数 3、最小公约数 4、最小公倍数则样用C语言编程“定义一个函数,求两个数的最大公约数和最小公倍数” 两道编程题目（Pascal语言） pascal编程：超级数