数论类编程题.docx

1、数论类编程题1.素数 1. 100，999范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字；该数是素数; 求有多少个这样的数？ 15#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,n=0,a,b,c;for(i=100;i=999;i+) a=i/100; b=i%100/10; c=i%10; if (b+c)%10=a&prime(i) n+;printf(Total is:%d

2、,n); 3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。若两素数之差为2 ，则称两素数为双胞胎数，问31,601之间有多少对双胞胎数。 22#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,n=0;for(i=31;i=599;i+)if (prime(i)&prime(i+2) n+;printf(Total is:%dn,n);4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两

3、个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对） 144#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,n;n=0;for(i=31;i=599;i+)if (prime(i)&prime(i+2) n+;printf(Total is:%dn,n);8.求100，900

4、之间相差为12的素数对（注：要求素数对的两个素数均在该范围内）的个数。 50#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,n=0;for(i=100;i=900-12;i+)if (prime(i)&prime(i+12) n+;printf(Total is:%dn,n);9. 一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数(注：1不是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。

5、例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求100,999之内的所有逆向超级素数的和。 21645#includeint prime(int x) int i,k;k=sqrt(x);for(i=2;ik) return(1);else return(0); main() int i,s=0;int prime(int x);for(i=100;i=999;i+)if (prime(i)&prime(i%100)&prime(i%10) if (i%100/10!=0)&(i%10!=0)&(i%10!=1

6、) s=s+i;printf(Total is:%dn,s);1413. 一个素数，依次从个位开始去掉一位，二位.，所得的各数仍然是素数，称为超级素数。求100,999之内超级素数的个数。 14#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,s=0;for(i=200;i=999;i+)if (prime(i)&prime(i/100)&prime(i/10) s+;printf(Total is: %dn,si); 14.

7、若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友数对，71是友素数。求100，200之间的第10个友素数对所对应的友素数的值（按由小到大排列）。 17291#includeint prime(int x)int i,k;if(x2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,s=0;for(i=100;i=200;i+)if (prime(i*(i+1)-1) s+; if (s=10) break;printf

8、(Total is:%dn,i*(i+1)-1);18. 梅森尼数是指能使2n-1为素数的数n，求1，21范围内有多少个梅森尼数？ 7#includeint prime(long x) long k;long i;if(i2) return(0);k=sqrt(x);for(i=2;ik) return(1);else return(0);main() int i,s=0;for(i=1;i=21;i+)if (prime(long)(pow(2,i)-1)&(long)(pow(2,i)-1)!=1)&(long)(pow(2,i)-1)!=0) s+;printf(nTotal is:%d

9、,%ldn,s,(long)(pow(2,i)-1); 2. 取数字 21.设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：3201， 32+02=23+13，试问所有这样的四位数之和是多少？ 97993main()long i,k=0;int a,b,c,d;for(i=1000;i=9999;i+) a=i/1000; b=i%1000/100; c=i%100/10; d=i%10; if (a*a+c*c=b*b*b+d*d*d) k=k+i; printf(okThe num is:%ldn,k);24. 求1，999之间能被3整

10、除，且至少有一位数字是5的所有正整数的个数。 91main()int i,k=0;int a,b,c;for(i=1;i=999;i+) a=i/100; b=i%100/10; c=i%10; if (i%3=0)&(a=5|b=5|c=5) k=k+1; printf(The num is:%d,k);25. 有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数中最大的一个是多少？ 407main()int i,max=0;int a,b,c;for(i=100;i=999;i+) a=i/100; b=i%100/1

11、0; c=i%10; if (a*a*a+b*b*b+c*c*c=i)&(a!=b&b!=c&a!=c) if (maxi) max=i; printf(The num is:%dn,max);28. 所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=13+33+53，故153是水仙花数，求100，999之间所有水仙花数之和。 1301main()int i,k=0;int a,b,c;for(i=100;i=999;i+) a=i/100; b=i%100/10; c=i%10; if (a*a*a+b*b*b+c*c*c=i) k=k+i; printf(T

12、he num is:%dn,k); 30. 回文数是指正读和反读都一样的正整数。例如3773是回文数。求出1000，9999以内的所有回文数的个数。 90main()long i,k=0;int a,b,c,d;for(i=1000;i=9999;i+) a=i/1000; b=i%1000/100; c=i%100/10; d=i%10; if (d*1000+c*100+b*10+a=i) k=k+1; printf(okThe num is:%ldn,k); 3. 分硬币 31. 把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案? 80#includemain()i

13、nt i,j,k,s=0;for(i=8;i=50;i+) for(j=8;j=50;j+) for(k=8;k=20;k+) if (i+2*j+5*k=100) s=s+1;printf(The num is:%dn,s);34. 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去50先令。如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。 9main()int i,k=0;int a,b,c;for(a=1;a=30;a+) for(b=1;b=30;b+

14、) if (a*3+b*2+(30-a-b)=50)&(a+b30) k+;printf(The num is:%dn,k); 4. 勾股、弦数 35. A,B,C是三个小于或等于100正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+CBC的倒勾股数有多少组。 1main() /*p2_2*/int i,a,b,c,n=0;for(c=1;c=50;c+) for(b=c+1;b=100;b+) for(a=b+1;a100&i150&(1.0/(a*a)+1.0/(b*b)=1.0/(c*c) n+; printf(%d,%d,%d:,a,b,c); prin

15、tf(n is:%dn,n);39. 勾股弦数是满足公式： A2+B2=C2 (假定ABC)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：32+42=52。求A，B，C均小于或等于100的勾股弦数中A+B+C的最大值。 240main()int max=0,a,b,c;for(a=1;a=100;a+) for(b=a+1;b=100;b+) for(c=b+1;c=100;c+) if (a*a+b*b=c*c) if (maxa+b+c) max=a+b+c; printf(%d,%d,%d:,a,b,c); printf(okn is:%dn,max); 40 若某整

16、数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于32+42=52，则5为弦数，求100，200之间弦数的个数。 77#includemain()int i,j,k,n=0;for(k=100;k=200;k+) for(i=1;ik;i+) for(j=i+1;jk;j+) if (i*i+j*j=k*k) n+;printf(%d:%d,%d,%dn,n,i,j,k);printf(n is:%dn,n);41 若某正整数平方等于某两个正整数平方之和,称该正整数为弦数。例如：由于32+42=52，则5为弦数，求131，200之间最小的弦数。 135#includemain()int

17、 i,j,k,min=200;for(k=131;k=200;k+) for(j=1;jk;j+) for(i=j+1;ik) min=k;break;printf(min is:%dn,min); 5.完数因子 42 求在10，1000之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。 524#includemain() int m,s,i; long sum=0; for(m=10;m=1000;m+) s=0; for(i=1;im;i+) if(m%i=0)s=s+i;if(s=m)sum=sum+m; printf(%ld,su

18、m); 43 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求1，1000之间的最大完数。 496#includeint wan(int x)int i,s=1;for(i=2;i=1;i-) if (wan(i) break;printf(Total is:%d,i);47 求200,300之间第二大有奇数个不同因子的整数(在计算因子个数时,包括该数本身)。 256#includemain() int x,k=0,i,s;for(x=300;x=200;x-) s=0; for(i=1;i=x;i+) if

19、(x%i=0) s=s+1; if (s%2=1) k+; if (k=2) break; printf(Total is:%d,x);48 已知24有8个正整数因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子数8整除，求正整数10，100之间有多少个正整数能被其因子的个数整除。 12#includemain() int x,k=0,i,s;for(x=10;x=100;x+) s=0; for(i=1;i=x;i+) if (x%i=0) s=s+1; if (x%s=0) k+; printf(Total is:%d,k); 50 当m的值为50时，计算下列公式之值:

20、t=1+1/22+1/32+1/m2(按四舍五入的方式精确到小数点后第四位)。 1.6251main()int m;float t=0;for(m=1;m=50;m+)t=t+1.0/(m*m);printf(t is:%f,t);53 利用格里高利公式：/4=1-1/3+1/5-1/7+1/9-1/11+-1/99，求的值。要求：按四舍五入的方式精确到小数点后第二位。 3.12main()int i,b=-1;float a=0;for(i=1;i=99;i=i+2) b=-b; a=a+b*1.0/i; printf(The num is:%10.2f,4*a); 61 求数列：2/1，3

21、/2，5/3，8/5，13/8，21/13， 前50项之和(注：此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子)。（按四舍五入的方式精确到小数点后第二位） 83.24main()int i,fz=2,fm=1,temp;float s=0;for(i=1;i=50;i+) s=s+(float)fz/fm; temp=fz; fz=fz+fm; fm=temp; printf(The num is:%10.2f,s); 7.平方数 64 若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=862，

22、且7+3+9+6=25=52，则称7396是“四位双平方数”。求所有“四位双平方数”之和。 81977#includemain()long i,k,s=0;int a,b,c,d;for(i=1000;i=B，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然数对中B之和。1160#includemain()int a,b,s=0;for(b=1;b=100;b+) for(a=b+1;a+b=100;a+) if (int)sqrt(a+b)=sqrt(a+b)&(int)sqrt(a-b)=sqrt(a-b) s=s+b;printf(okThe num is

23、:%d+%d=%dn,a,b,s); 67 所谓“同构数”是指这样一个数，它出现在它的平方数的右侧，例如5的平方是25，25的平方是625，故5和25都是同构数，求2，1000之间所有同构数之和。 1113#includemain()int i,j,s=0;for(i=2;i=1000;i+) for(j=1;j2 试求F(1)+F(3)+F(5)+F(49)值。 提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。 12586269025main() float f50,*p,s; s=0; f1=1; f2=1; for(p=f+3;p=f+49;p+) *p=*(p

24、-1)+*(p-2); for(p=f+1;p=f+49;p+=2) s=s+*p; printf(%12.0fn ,s); main() double f50,s; int i; s=1; f1=1; f2=1; for(i=3;i=49;i+) fi=fi-1+fi-2; for(i=1;i=49;i+=2) s=s+fi; printf(%12.0lfn ,s); 80 已知S1=2, S2=2+4, S3=2+4+6, S4=2+4+6+8,S5=2+4+6+8+10，,求 S=S1+S2+S3+S4+S5+S20的值。 3080main()int i,j,s=0,num=0;for(i=1;i=20;i+) s=s+2*i; num=num+s; printf(num is:%d,num); 9.a,b,c,d,e类 83 设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件的四位数abcd