Pascal基本算法整理，学习用很好 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod b); end ; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a0 do inc(lcm,a); end; 素数的求法 A.小范围内判断一个数是否为质数： function prime (n:
素数又称质数，所谓素数是指除了 1 和它本身以外，不能被任何整数整除的数，例如17就是素数，因为它不能被 2~16 的任一整数整除。
思路1、判断一个整数m是否是素数，只需把 m 被 2 ~ m-1 之间的每一个整数去除，7a64e78988e69d8331333431353338如果都不能被整除，那么 m 就是一个素数。思路2、判断方法还可以简化。
m 不必被2~m-1之间的每一个整数去除，只需被2~√m之间的每一个整数去除就可以了。如果 m 不能被2~√m 间任一整数整除，m必定是素数。
