Pascal求两个正整数的最大公约数和最小公倍数枚举因子法

programex1;varn,a,b,i,j,gongyueshu,gongbeishu:longint;beginreadln(a,b);if(a1和

functiongcd(a,b:longint):longint;beginif(b=0)thenexit(a)elseexit(gcd(b,amodb));end;functionlcm(a,b:l

1.1最大公约数与最小公倍数1.算法1:欧几里德算法求a,b的最大公约数functiongcd(a,b:longint):longint;beginifb=0thengcdd:=aelsegcd:=g

高精度与高精度乘法【问题描述】设高精度数a[1]a[2]...a[n-1]a[n]与高精度b[1]b[2]...b[n-1]b[n]的乘法可表示如下：a,b:array[1..n]of0..9;即：a

programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

1830

vara,b,k:longint;beginread(a,b);ifb>=100thenk:=1000elseifb>=10thenk:=100elsek:=10;writeln('c=',a*k+b

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间

完全数：因子（除了它本身）之和等于它本身的数programcs4;vari,n,s:integer;begins:=0;forn:=2to100dobegin{fori:=1tondo}fori:=1

程序已经编写完成,请采纳:varn:integer;functionfacsum(n:longint):longint;vars,t,i:longint;begins:=0;i:=1;t:=1;whi

用短除法先分别把两个数用短除法除出来再把得数中一样的相乘就可以了例如：42=2*3*730=2*3*5那么它们的最大公因数就是2*3=6

最小公倍数=96÷4=2424÷4=2×3这两个数是4和24或8和1242÷6=77=1+6=2+5=3+4这两个数是6和36,12和30,18和24

这两道题都是高精度运算在这里我给你我的第一题代码（不超过254位,string最长254,可以用ansistring增加长度）vara,b,c:string;r,i,h,f,e:integer;beg

1、听说这题用辗转相除法很好,不过我不会.varx,y,i:integer;beginreadln(x,y);fori:=xdownto1doifymodi=0thenbeginwriteln(i);

6与90或18与30稍等设两个数为A与B,A*B=540,A的最大公因数为6,B的最大共因数为6,所以用540除以它俩每个数的最大共因数6与6可得到15,然后15就可以自由组合了,不过也就是两中组合方

32/40

1284分解质因数是1284＝2*3*2**13*3*3这两个数是2*3*13＝782*3*3＝18

设这两个数分别为6x、6y,根据已知得6x*6y=540,因此xy=15,由于15=1*15=3*5,所以x=1或3,y=15或5,这两个数分别为6,90或18,30.

42÷6=77=2+5=3+4=1+6则可以是：2×6=12和5×6=30还可以：1×6=6和6×6=36还可以：3×6=18和4×6=24再问：确定吗？再答：肯定啦