pascal最大公约数

1.不多说了,直接枚举1000..3000套个FOR里面判断是否满足,满足就输出2.觉得可以用搜索阿,搜索应该很简单,1..9肯定不会TLE的3.快排(附过程,这个要背下来的）procduresort

vara,b,i:integer;beginreadln(a,b);fori:=ato1doif(amodi=0)and(bmodi=0)thenwriteln(i);end.//公约数vara,b,

varr,n,m,zxgbs:longint;beginrandomize;m:=random(100);{自动生成0~100的整数}n:=random(100);{自动生成0~100的整数}ifm>

pascalpascalpascal!

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

先最小公倍数y0除以最大公约数x0得到一个新数a,求出把a分解为a=p1*q1=p2*q2=p3*q3=……=pn*qn的形式（其中p1,q1皆为整数,且p1,q1互质p2,q2……等类似）则对应的p

公约数公倍数vara,b,i,p,n,m:longint;beginread(a,b);ifa>bthenp:=aelsep:=b;whilei

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

varn,m,r,t,a:integer;beginreadln(n,m);a:=n*m;ifn

让我来点出你是个初学者的明显的特征：第一,你的程序的GCD还有LCM重新定义了A和B以及G,这样主过程里面的变量值是多少?函数里面变量值是多少?变量重名会造成很严重的后果第二,你的程序真长,看得我头疼

vara,b,temp:integer;beginreadln(a,b);ifab)thena:=a-belsebegintemp:=a-b;a:=b;b:=temp;end;end;ifa=0the

programsd;constm=3;vara:array[1..m]ofinteger;i,s,n:integer;functionzdgy(num1,num2:integer):integer;v

{不是整数的2b数据别给啊}vara,b:longint;functiongcd(a,b:longint):longint;//（递归）最大公约数beginifb=0thengcd:=aelsegcd

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

programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm再问：拜托，错了再答：programex1;varj,m,n,m1,n1,a,b:i

vara,b,c:longint;beginread(a,b,c);{a是已知的数,b,c分别表示最大公约数和最小公倍数}writeln(b*cdiva);end.{嗯假设两个数为a,b,他们的最大公

解释一下这个算法的原理吧：已知m>n,设：m=n*k+r(0

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

解题思路：利用排除法求出它们的最大公约数解题过程：下列那组数的最大公约数与1855，1120的最大公约数不同（)A1120,735B385,350C385,735D1855,325解:因为1855，1

{用辗转相除法求两数的最大公约数Pascal源代码  作者  yjf_victor  2013年6月18日}program gcd