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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 02:20:56
怎样用pascal编程求出两数的最小公约数和最小公倍数(不用函数).

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

怎样用pascal编程求出两数的最小公约数和最小公倍数(不用函数).
设有两整数 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编程求出两数的最小公约数和最小公倍数(不用函数). 求出两数的最大公约与最小公倍的和有什么用已知两数的最大公约与最小公倍的和是84且两数之比为5:4求这两个数的最大公约 两道编程题目(Pascal语言)1、一个两位数x,将它的个位数字与十位数字对调后得到一个新数y,此时y恰好比x大36,请编程求出所有这样的两位数.2、国际象棋中,假设在第一格放一粒米,第二格放 编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言要的是pascal编程过程 两个数的最大公约是21 最小公倍是252 两个数最小和是() Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”, 2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列是电脑编程问题,用Pascal回答。 Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数输入格式一个数k输出格式求出第k个符合条件的数 用Pascal编程求满足下列条件的三位数:该三位数等于它数... pascal编程:方格取数题目描述设有N*N的方格图(N pascal编程 在一定范围内的(1~10^9) 某两个数的公倍数与公约数如题 用free pascal编程:输入两个数,求他们的最大公因数和最小公倍数 pascal两数平均数程序 用vb编程:输入三个数,求出最大的数 编程求出一组数的最大值和次最大值 编程输出两位自然数中的所有巧数,我使用的是pascal软件如果一个自然数的数字之积加上这些数字之和正好等于这个自然数,这样的自然数被称为“巧数”. pascal编程计算输入数中偶数的平均值 输入数据以-1结束试题描述 编程计算所有输入的数中偶数的平均值.输入数据以-1结束.输入要求 一行,若干个数输出要求 一行,一个数,保留两位小数输入 怎样用分解质因数来求出两个数的最小公倍数