省考C語言程序設計題附答案省考C語言程序設計題附答案省考C語言程序設計題附答案省考C語言程序設計題附答案編制僅供參考審核批準生效日期地址：電話：傳真:郵編: 1.素數 1. [100，999]范圍內同時滿足以下兩個條件的十進制數.⑴其個位數字與十位數字之和除以10所得的余數是百位數字；⑵該數是素數;求有多少個這樣的數 15#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,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("Totalis:%d",n);}2. [300，800]范圍內同時滿足以下兩個條件的十進制數.⑴其個位數字與十位數字之和除以10所得的余數是百位數字；⑵該數是素數；求滿足上述條件的最大的三位十進制數。 7613. 除1和它本身外，不能被其它整數整除的正整數稱為素數（注：1不是素數，2是素數）。若兩素數之差為2，則稱兩素數為雙胞胎數，問[31,601]之間有多少對雙胞胎數。 22#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,n=0;for(i=31;i<=599;i++)if(prime(i)&&prime(i+2))n++;printf("Totalis:%d\n",n);}4. 數學家哥德巴赫曾猜測：任何大于6的偶數都可以分解成兩個素數（素數對）的和。但有些偶數可以分解成多種素數對的和，如：10=3+7，10=5+5，即10可以分解成兩種不同的素數對。試求6744可以分解成多少種不同的素數對（注：A+B與B+A認為是相同素數對） 144#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,n;n=0;for(i=31;i<=599;i++)if(prime(i)&&prime(i+2))n++;printf("Totalis:%d\n",n);}5. 兩個素數之差為2，則稱這兩個素數為雙胞胎數。求出[200，1000]之間的最大一對雙胞胎數的和。 17646. 一個素數（設為p）依次從最高位去掉一位，二位，三位，……，若得到的各數仍都是素數(注：除1和它本身外，不能被其它整數整除的正整數稱為素數，1不是素數，2是素數），且數p的各位數字均不為零，則稱該數p為逆向超級素數。例如，617，17，7都是素數，因此617是逆向超級素數，盡管503，03，3都是素數，但它不是逆向超級素數，因為它包含有零。試求[100,999]之內的所有逆向超級素數的個數。 397. 德國數學家哥德巴赫曾猜測：任何大于6的偶數都可以分解成兩個素數（素數對）的和。但有些偶數可以分解成多種素數對的和，如：10=3+7，10=5+5，即10可以分解成兩種不同的素數對。試求1234可以分解成多少種不同的素數對（注：A+B與B+A認為是相同素數對） 258.求[100，900]之間相差為12的素數對（注：要求素數對的兩個素數均在該范圍內）的個數。 50#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,n=0;for(i=100;i<=900-12;i++)if(prime(i)&&prime(i+12))n++;printf("Totalis:%d\n",n);}9. 一個素數（設為p）依次從最高位去掉一位，二位，三位，……，若得到的各數仍都是素數(注：1不是素數)，且數p的各位數字均不為零，則稱該數p為逆向超級素數。例如，617，17，7都是素數，因此617是逆向超級素數，但盡管503，03，3都是素數，但它不是逆向超級素數，因為它包含有零。試求[100,999]之內的所有逆向超級素數的和。 21645#include<>intprime(intx){inti,k;k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,s=0;intprime(intx);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))s=s+i;printf("Totalis:%d\n",s);}10. 一個素數（設為p）依次從最高位去掉一位，二位，三位，……，若得到的各數仍都是素數(注：1不是素數，2是素數)，且數p的各位數字均不為零，則稱該數p為逆向超級素數。例如，617，17，7都是素數，因此617是逆向超級素數，但盡管503，03，3都是素數，但它不是逆向超級素數，因為它包含有零。試求[100,999]之內的所有逆向超級素數從大到小數的第10個素數是多少 79711. 一個自然數是素數，且它的數字位置經過任意對換后仍為素數，則稱為絕對素數。如13，試求所有兩位絕對素數的和。 42912. 在[200，900]范圍內同時滿足以下兩個條件的十進制數:⑴其個位數字與十位數字之和除以10所得的余數是百位數字;⑵該數是素數；問有多少個這樣的數 1413. 一個素數，依次從個位開始去掉一位，二位.....，所得的各數仍然是素數，稱為超級素數。求[100,999]之內超級素數的個數。 14#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,s=0;for(i=200;i<=999;i++)if(prime(i)&&prime(i/100)&&prime(i/10))s++;printf("Totalis:%d\n",si);}14. 若兩個連續的自然數的乘積減1后是素數，則稱此兩個連續自然數為友數對，該素數稱為友素數。例如，由于8*9-1=71，因此，8與9是友數對，71是友素數。求[100，200]之間的第10個友素數對所對應的友素數的值（按由小到大排列）。 17291#include<>intprime(intx){inti,k;if(x<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,s=0;for(i=100;i<=200;i++)if(prime(i*(i+1)-1)){s++;if(s==10)break;}printf("Totalis:%d\n",i*(i+1)-1);}15. 求[2，400]中相差為10的相鄰素數對的對數。 516. 若兩個連續的自然數的乘積減1后是素數，則稱此兩個連續自然數為友數對，該素數稱為友素數。例如，由于8*9-1=71，因此，8與9是友數對，71是友素數。求[50，150]之間的友數對的數目。 3817. 若兩個自然連續數乘積減1后是素數,則稱此兩個自然連續數為友數對,該素數稱為友素數,例:2*3-1=5,因此2與3是友數對,5是友素數,求[40,119]之間友素數對的數目。 3018. 梅森尼數是指能使2^n-1為素數的數n，求[1，21]范圍內有多少個梅森尼數 7#include<>intprime(longx){longk;longi;if(i<2)return(0);k=sqrt(x);for(i=2;i<=k;i++)if(x%i==0)break;if(i>k)return(1);elsereturn(0);}main(){inti,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("\nTotalis:%d,%ld\n",s,(long)(pow(2,i))-1);}} 2.取數字 19. [300，800]范圍內同時滿足以下兩個條件的十進制數.⑴其個位數字與十位數字之和除以10所得的余數是百位數字；⑵該數是素數；求滿足上述條件的最大的三位十進制數。 76120. 求符合下列條件的四位完全平方數(某個正整數A是另一個正整數B的平方,則稱A為完全平方數)，它的千位數字與十位數字之和等于百位數字與個位數字之積，例如，3136=562,且3+3=1*6故3136是所求的四位完全平方數.求其中最大的一個數。 792121.設某四位數的千位數字平方與十位數字的平方之和等于百位數字的立方與個位數字的立方之和，例如，對于四位數：3201，3^2+0^2=2^3+1^3，試問所有這樣的四位數之和是多少 97993main(){longi,k=0;inta,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("okThenumis:%ld\n",k);}22. 設某四位數的千位數字與十位數字的和等于百位數字與個位數字的積，例如，對于四位數：9512，9+1=5*2，試問所有這樣的四位數之和是多少 107828923. 有一個三位數滿足下列條件:(1)此三位數的三位數字各不相同;(2)此三位數等于它的各位數字的立方和。試求所有這樣的三位數之和。 130124. 求[1，999]之間能被3整除，且至少有一位數字是5的所有正整數的個數。 91main(){inti,k=0;inta,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("Thenumis:%d",k);}25. 有一個三位數滿足下列條件:(1)此三位數的三位數字各不相同;(2)此三位數等于它的各位數字的立方和。試求所有這樣的三位數中最大的一個是多少 407main(){inti,max=0;inta,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)&&(a!=b&&b!=c&&a!=c))if(max<i)max=i;}printf("Thenumis:%d\n",max);}26. 有一個三位數滿足下列條件:(1)此三位數的三位數字各不相同;(2)此三位數等于它的各位數字的立方和。試求這種三位數共有多少個 427. 求五位數各位數字的平方和為100的最大的五位數。 9411128. 所謂“水仙花數”是指一個三位數，其各位數字的三次方之和等于該數本身，例如：153=1^3+3^3+5^3，故153是水仙花數，求[100，999]之間所有水仙花數之和。 1301main(){inti,k=0;inta,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("Thenumis:%d\n",k);}29. 設某四位數的各位數字的平方和等于100，問共有多少個這種四位數 4930. 回文數是指正讀和反讀都一樣的正整數。例如3773是回文數。求出[1000，9999]以內的所有回文數的個數。 90main(){longi,k=0;inta,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("okThenumis:%ld\n",k);} 3.分硬幣 31. 把一張一元鈔票,換成一分、二分和五分硬幣,每種至少8枚,問有多少種方案 80#include<>main(){inti,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("Thenumis:%d\n",s);}32. 50元的整幣兌換成5元、2元和1元幣值（三種幣值均有、缺少一種或兩種都計算在內）的方法有多少種。 14633. 50元的整幣兌換成5元、2元和1元幣值（要求三種幣值均有）的方法有多少種。 10634. 馬克思曾經做過這樣一道趣味數學題：有30個人在一家小飯店里用餐，其中有男人、女人和小孩，每個男人花了3先令，每個女人花了2先令，每個小孩花了1先令，共花去50先令。如果要求男人、女人和小孩都有人參與，試求有多少種方案分配男人、女人和小孩的人數。 9main(){inti,k=0;inta,b,c;for(a=1;a<=30;a++)for(b=1;b<=30;b++)if((a*3+b*2+(30-a-b)==50)&&(a+b<30))k++;printf("Thenumis:%d\n",k);} 4.勾股、弦數 35. A,B,C是三個小于或等于100正整數，當滿足1/A^2+1/B^2=1/C^2關系時，稱為倒勾股數。求130<A+B+C<150且A>B>C的倒勾股數有多少組。 1main()/*p2_2*/{inti,a,b,c,n=0;for(c=1;c<=50;c++)for(b=c+1;b<=100;b++)for(a=b+1;a<=100;a++){i=a+b+c;if(i>100&&i<150&&(a*a)+(b*b)==(c*c))){n++;printf("%d,%d,%d:",a,b,c);}}printf("nis:%d\n",n);}36. 倒勾股數是滿足公式：1/A^2+1/B^2=1/C^2的一組正整數（A，B，C），例如，（156，65，60）是倒勾股數，因為：1/156^2+1/65^2=1/60^2。假定A>B>C，求A，B，C之和小于100的倒勾股數有多少組 237. 勾股弦數是滿足公式：A^2+B^2=C^2(假定A<B<C)的一組正整數（A，B，C），例如，（3，4，5）是勾股弦數，因為：3^2+4^2=5^2。求A，B均小于25且A+B+C<=100的勾股弦數的個數。 1138. 倒勾股數是滿足公式：1/A^2+1/B^2=1/C^2的一組正整數（A，B，C），例如，（156，65，60）是倒勾股數，因為：1/156^2+1/65^2=1/60^2。假定A>B>C，求A，B，C均小于或等于100的倒勾股數有多少組 439. 勾股弦數是滿足公式：A^2+B^2=C^2(假定A<B<C)的一組正整數（A，B，C），例如，（3，4，5）是勾股弦數，因為：3^2+4^2=5^2。求A，B，C均小于或等于100的勾股弦數中A+B+C的最大值。 240main(){intmax=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(max<a+b+c)max=a+b+c; printf("%d,%d,%d:",a,b,c);}}printf("oknis:%d\n",max);} 40 若某整數平方等于某兩個正整數平方之和的正整數稱為弦數。例如：由于3^2+4^2=5^2，則5為弦數，求[100，200]之間弦數的個數。 77#include<>main(){inti,j,k,n=0;for(k=100;k<=200;k++)for(i=1;i<k;i++)for(j=i+1;j<k;j++)if(i*i+j*j==k*k){n++;printf("%d:%d,%d,%d\n",n,i,j,k);}printf("nis:%d\n",n);}41 若某正整數平方等于某兩個正整數平方之和,稱該正整數為弦數。例如：由于3^2+4^2=5^2，則5為弦數，求[131，200]之間最小的弦數。 135#include<>main(){inti,j,k,min=200;for(k=131;k<=200;k++)for(j=1;j<k;j++)for(i=j+1;i<k;i++)if(i*i+j*j==k*k){if(min>k)min=k;break;}printf("minis:%d\n",min);} 5.完數因子 42 求在[10，1000]之間的所有完數之和。各真因子之和（不包括自身）等于其本身的正整數稱為完數。例如：6=1+2+3，6是完數。 524#include<>intwan(intx){inti,s=1;for(i=2;i<=x-1;i++)if(x%i==0)s=s+i;if(s==x)return(1);elsereturn(0);}main(){inti,s=0;for(i=10;i<=1000;i++)if(wan(i))s=s+i;printf("Totalis:%d",s);}43 一個數如果恰好等于它的所有真因子之和，這個數就稱為“完數”。例如,6的真因子為1，2，3，而6=1+2+3，因此，6是“完數”。求[1，1000]之間的最大完數。 496#include<>intwan(intx){inti,s=1;for(i=2;i<=x-1;i++)if(x%i==0)s=s+i;if(s==x)return(1);elsereturn(0);}main(){inti;for(i=1000;i>=1;i--)if(wan(i))break;printf("Totalis:%d",i);}44 一個數如果恰好等于它的所有真因子之和，這個數就稱為“完數”。例如，6的真因子為1，2，3，而6=1+2+3，因此，6是“完數”。求[1,1000]之間的第二大完數。 2845 一個數如果恰好等于它的所有真因子之和，這個數就稱為“完數”。例如，6的真因子為1，2，3，而6=1+2+3，因此，6是“完數”。求1000以內的所有完數之和。 53046 求[200,300]之間有奇數個不同因子的最大的整數(在計算因子個數時,包括該數本身)。 28947 求[200,300]之間第二大有奇數個不同因子的整數(在計算因子個數時,包括該數本身)。 256#include<>main(){intx,k=0,i,s;for(x=300;x>=200;x--){s=0;for(i=1;i<=x;i++)if(x%i==0)s=s+1;if(s%2==1)k++;if(k==2)break;}printf("Totalis:%d",x);}48 已知24有8個正整數因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子數8整除，求正整數[10，100]之間有多少個正整數能被其因子的個數整除。 12#include<>main(){intx,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("Totalis:%d",k);} 6.(數列)四舍五入 49 當m的值為50時，計算下列公式的值：T=1-1/2-1/3-1/4-…-1/m

要求：按四舍五入的方式精確到小數點后第四位。 50 當m的值為50時，計算下列公式之值:t=1+1/2^2+1/3^2+…+1/m^2

(按四舍五入的方式精確到小數點后第四位)。 main(){intm;floatt=0;for(m=1;m<=50;m++)t=t+(m*m);printf("tis:%f",t);}51 當n=100時，計算S=(1-1/2)+(1/3-1/4)+……+(1/(2n-1)-1/(2n))的值。.

要求：按四舍五入的方式精確到小數點后第三位。 52 當n的值為25時，計算下列公式的值:s=1+1/1!+1/2!+1/3!+…+1/n!

要求：按四舍五入的方式精確到小數點后第四位。 53 利用格里高利公式：α/4=1-1/3+1/5-1/7+1/9-1/11+…-1/99，求α的值。要求：按四舍五入的方式精確到小數點后第二位。 main(){inti,b=-1;floata=0;for(i=1;i<=99;i=i+2){b=-b;a=a+b*i;}printf("Thenumis:%",4*a);}54 求1/(1*2)+1/(2*3)+1/(3*4)+....+1/(N*(N+1))的值,N=20,要求：按四舍五入的方式精確到小數點后第二位。 55 求500以內（含500）能被5或9整除的所有自然數的倒數之和。按四舍五入的方式精確到小數點后第二位。 56 求S=1/2+2/3+3/5+5/8+……的前30項的和（注：該級數從第二項開始，其分子是前一項的分母，其分母是前一項的分子與分母的和）。要求：按四舍五入的方式精確到小數點后第二位。 57 設S(n)=1-1/3+1/5-1/7+…1/(2n-1)，求S（100）的值，要求S(100)按四舍五入方式精確到小數點后4位。 58 當n=50時，求下列級數和：S=1/（1*2）+1/（2*3）+…+1/(n*(n+1))

要求：按四舍五入的方式精確到小數點后第四位。 59 計算y=1+2/3+3/5+4/7+…+n/(2*n-1)的值,n=50,要求：按四舍五入的方式精確到小數點后第二位。 60 計算Y=X/1!-X^3/3!+X^5/5!-X^7/7!+……前20項的值(已知：X=2)。要求：按四舍五入的方式精確到小數點后第二位。 61 求數列：2/1，3/2，5/3，8/5，13/8，21/13，……前50項之和(注：此數列從第二項開始，其分子是前一項的分子與分母之和，其分母是前一項的分子)。（按四舍五入的方式精確到小數點后第二位） main(){inti,fz=2,fm=1,temp;floats=0;for(i=1;i<=50;i++){s=s+(float)fz/fm;temp=fz;fz=fz+fm;fm=temp;}printf("Thenumis:%",s);}62 已知：A1=1,A2=1/(1+A1),A3=1/(1+A2),A4=1/(1+A3),……,求A50.（按四舍五入的方式精確到小數點后第三位）。 63 已知：Sn=2/1+3/2+4/3+…+(n+1)/n,求Sn不超過50的最大值（按四舍五入的方式精確到小數點后第三位）。 7.平方數 64 若一個四位正整數是另一個正整數的平方，且各位數字的和是一個平方數，則稱該四位正整數是“四位雙平方數”。例如：由于7396=86^2，且7+3+9+6=25=5^2，則稱7396是“四位雙平方數”。求所有“四位雙平方數”之和。 81977#include<>main(){longi,k,s=0;inta,b,c,d;for(i=1000;i<=9999;i++){a=i/1000;b=i%1000/100;c=i%100/10;d=i%10;k=a+b+c+d;if((int)sqrt(i)==sqrt(i)&&(int)sqrt(k)==sqrt(k))s=s+i;}printf("okThenumis:%ld\n",s);}65 自然數對是指兩個自然數的和與差都是平方數，如8和17的和8+17=25與其差17-8=9都是平方數，則稱8和17是自然數對（8，17）。假定（A，B）與（B，A）是同一個自然數對且假定A>=B，求所有小于或等于100（即：A<=100,B<=100，A<>B,A和B均不為0）的自然數對中B之和。1160#include<>main(){inta,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("okThenumis:%d+%d=%d\n",a,b,s);}}}66 若一個四位正整數是另一個正整數的平方，且各位數字的和是一個平方數，則稱該四位正整數是“四位雙平方數”。例如：由于7396=86^2，且7+3+9+6=25=5^2，則稱7396是“四位雙平方數”。若把所有“四位雙平方數”按升序排列，求前10個“四位雙平方數”的和。 2969067 所謂“同構數”是指這樣一個數，它出現在它的平方數的右側，例如5的平方是25，25的平方是625，故5和25都是同構數，求[2，1000]之間所有同構數之和。 1113#include<>main(){inti,j,s=0;for(i=2;i<=1000;i++)for(j=1;j<=6;j++)if(i*i%((long)pow(10,j))==i){s=s+i;printf("Thenumis:\n%d,%d,%d\n",i,j,s);}}68 自然數對是指兩個自然數的和與差都是平方數，如8和17的和8+17=25與其差17-8=9都是平方數，則稱8和17是自然數對（8，17）。假定（A，B）與（B，A）是同一個自然數對且假定A>=B，求所有小于或等于100（即：A<=100,B<=100，A<>B,A和B均不為0）的自然數對中A-B之差的和。 509 (累加數列) 69 已知f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+…f(30)。 -75087470 已知f(0)=f(1)=1f(2)=0

f(n)=f(n-1)-2*f(n-2)+f(n-3)(n>2)

求f(0)到f(50)中的最大值59832571 已知Fibonacci數列：1,1,2,3,5,8,……,它可由下面公式表述：

F(1)=1ifn=1

F(2)=1ifn=2

F(n)=F(n-1)+F(n-2)ifn>2

試求F(2)+F(4)+F(6)+……+F(50)值。提示：最好使用遞推法求解，因為使用遞歸調用很可能超出某些語言的遞歸深度。07372 已知Fibonacci數列：1,1,2,3,5,8,……,它可由下面公式表述：

F(1)=1ifn=1

F(2)=1ifn=2

F(n)=F(n-1)+F(n-2)ifn>2

試求F(50)值。提示：最好使用遞推法求解，因為使用遞歸調用很可能超出某些語言的遞歸深度。 73 斐波那契數列的前二項是1，1，其后每一項都是前面兩項之和，求：以內最大的斐波那契數 922746574 數列E(1)=E(2)=1

E(n)=(n-1)*E(n-1)+(n-2)*E(n-2)(n>2)

稱為E數列，每一個E(n),(n=1,2,…)稱為E數。求[1，30000]之內E數的個數。 875 已知f(0)=f(1)=1

f(2)=0f(n)=f(n-1)-2f(n-2)+f(n-3)(n>2)

求f(0)到f(50)的所有51個值中的最大值（或最小值）'598325('-288959)76 已知Fibonacci數列：1,1,2,3,5,8,……,它可由下面公式表述：

F(1)=1ifn=1

F(2)=1ifn=2

F(n)=F(n-1)+F(n-2)ifn>2

試求F(1)+F(3)+F(5)+……+F(49)值。

提示：最好使用遞推法求解，因為使用遞歸調用很可能超出某些語言的遞歸深度。 main(){floatf[50],*p,s;s=0;f[1]=1;f[2]=1;for(p=f+3;p<=f+49;p++){*p=*(p-1)+*(p-2);}for(p=f+1;p<=f+49;p+=2){s=s+*p;}printf("%\n",s);}main(){doublef[50],s;inti;s=1;f[1]=1;f[2]=1;for(i=3;i<=49;i++){f[i]=f[i-1]+f[i-2];}for(i=1;i<=49;i+=2){s=s+f[i];}printf("%\n",s);}77 已知Fibonacci數列：1,1,2,3,5,8,……,它可由下面公式表述：

F(1)=1ifn=1

F(2)=1ifn=2

F(n)=F(n-1)+F(n-2)ifn>2

試求F(45)值。提示：最好使用遞推法求解，因為使用遞歸調用很可能超出某些語言的遞歸深度。 7078 已知一個數列的前三項為0，0，1，以后各項都是其相鄰的前三項之和，求該數列前30項之和。 79 設S=1+1/2+1/3+…1/n，n為正整數，求使S不超過10（S≤10）的最大的n。 1236780 已知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(){inti,j,s=0,num=0;for(i=1;i<=20;i++){s=s+2*i;num=num+s;}printf("numis:%d",num);} ,b,c,d,e類 81 設有十進制數字a,b,c,d和e，它們滿足下列式子：abcd*e=bcde(a不等于0，e不等于0或1)，求滿足上述條件的所有四位數abcd的和。 366582 設有十進制數字a,b,c,d和e，它們滿足下列式子：abcd*e=bcde(a不等于0，e不等于0或1)，求滿足上述條件的最大四位數abcd的值。 199983 設有十進制數字a,b,c,d和e，它們滿足下列式子：abcd*e=bcde(a不等于0，e不等于0或1)，求滿足上述條件的四位數abcd的個數。 2main(){inti,a,b,c,d,e,k=0;for(i=1000;i<=9999;i++){a=i/1000;b=i%1000/100;c=i%100/10;d=i%10;for(e=2;e<=9;e++)if(i*e==b*1000+c*100+d*10+e)k=k+1;}printf("okThenumis:%d\n",k);}84 有十進制數字a,b,c,d和e，它們滿足下列式子：abcd*e=bcde(a不等于0，e不等于0或1)，求滿足上述條件的所有四位數bcde的和。 1665985 設有6個十進制數字a,b,c,d,e，f,求滿足abcdf×e=fdcba條件的五位數abcdf(a≠0,e≠0,e≠1)的個數。 2 10.方程 86 求方程8x-5y=3,在|x|<=150,|y|<=200內的整數解。試問這樣的整數解有多少組 5087 求方程8x-5y=3,在|x|<=150,|y|<=200內的整數解。試問這樣的整數解中|x|*|y|的最大值是多少 24676#include""main(){intx,y,t,max=0;for(x=-150;x<=150;x++)for(y=-200;y<=200;y++){if(8*x-5*y==3){printf("x=%d,y=%d\n",x,y); t=abs(x)*abs(y);} if(max<t)max=t;}printf("max=%d\n",max);}88 若（x,y,z）滿足方程：x^2+y^2+z^2=55^2(注：要求x>y>z),則（x,y,z）稱為方程的一個解。試求方程的所有整數解中，|x|+|y|+|z|的最大值。（或最小值）95；'6789 已知X,Y,Z為三個正整數，且X^2+Y^2+Z^2=25^2，求X+Y+Z的最大值。 4390 （x,y,z）滿足方程：x^2+y^2+z^2=55^2(注：要求x>y>z),則（x,y,z）稱為方程的一個解。試求方程的整數解（包括負整數解）的個數。 62main(){intx,y,z,n=0;clrscr();for(x=-55;x<=55;x++)for(y=-55;y<x;y++)for(z=-55;z<y;z++){if(x*x+y*y+z*z==55*55){n=n+1;}}printf("n=%d\n",n);}91 求方程9X-19Y=1,在|X|≤100,|Y|≤50內共有多少組整數解 11mai