VB循環(huán)程序例題100道附答案

1.[100，999]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù).⑴其個位數(shù)字與十位數(shù)字之和除n=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn2.[300，800]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù).⑴其個位數(shù)字與十位數(shù)字之和除Fori=300To800a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thens=iEndIfNextiPrintsn=0Fori=31To601-2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(i+2)If(i+2)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn4.數(shù)學(xué)家哥德巴赫曾猜測：任何大于6的偶數(shù)都可以分解成兩個素數(shù)(素數(shù)對)的和。但有。n=0Fori=2To6744/2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(6744-i)If(6744-i)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn5.兩個素數(shù)之差為2，則稱這兩個素數(shù)為雙胞胎數(shù)。求出[200，1000]之間的最大一對雙胞1764Fori=200To1000-2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(i+2)If(i+2)Modj=0Theny=1:ExitForNextjIfy=0Thens=i+i+2EndIfNextiPrints6.一個素數(shù)(設(shè)為p)依次從最高位去掉一位，二位，三位，……，若得到的各數(shù)仍都是素是逆向超級素數(shù)，盡管503，03，3都是素數(shù)，但它不是逆向超級素數(shù)，因為它包含有零。試求n=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr(b)IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1EndIfEndIfEndIfNextiPrintn7.德國數(shù)學(xué)家哥德巴赫曾猜測：任何大于6的偶數(shù)都可以分解成兩個素數(shù)(素數(shù)對)的和。數(shù)對。試求1234可以分解成多少種不同的素數(shù)對(注：A+B與B+A認(rèn)為是相同素數(shù)對)25n=0Fori=2To1234/2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(1234-i)If(1234-i)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn8.求[100，900]之間相差為12的素數(shù)對(注：要求素數(shù)對的兩個素數(shù)均在該范圍內(nèi))的個數(shù)。n=0Fori=100To900-12x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(i+12)If(i+12)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn9.一個素數(shù)(設(shè)為p)依次從最高位去掉一位，二位，三位，……，若得到的各數(shù)仍都是素s=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr(b)IfbModj=0Thenz=1:ExitForNextjIfz=0Thens=s+iEndIfEndIfEndIfNextiPrints10.一個素數(shù)(設(shè)為p)依次從最高位去掉一位，二位，三位，……，若得到的各數(shù)仍都是素797n=0Fori=999To100Step-1a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr(b)IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1:Ifn=10Thens=iEndIfEndIfEndIfNextiPrints11.一個自然數(shù)是素數(shù)，且它的數(shù)字位置經(jīng)過任意對換后仍為素數(shù)，則稱為絕對素數(shù)。如13，29s=0Fori=10To99a=i\10b=iMod10x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=b*10+aForj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thens=s+iEndIfNextiPrints12.在[200，900]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù):⑴其個位數(shù)字與十位數(shù)字之和除n=0Fori=200To900a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn13.一個素數(shù)，依次從個位開始去掉一位，二位.....，所得的各數(shù)仍然是素數(shù)，稱為超級素14n=0Fori=100To999x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Thena=i\10y=0Forj=2ToSqr(a)IfaModj=0Theny=1:ExitForNextjIfy=0Thenb=i\100Ifb<>1Thenz=0ndEndIfEndIfNextiPrintnForj=2ToSqr(b)IfbModj=0ThenNextjIfz=0Thenn=n+z=1:ExitFor114.若兩個連續(xù)的自然數(shù)的乘積減1后是素數(shù)，則稱此兩個連續(xù)自然數(shù)為友數(shù)對，該素數(shù)稱Fori=100To199a=i*(i+1)-1x=0Forj=2ToSqr(a)IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1Ifn=10Thens=aEndIfNextiPrints15.求[2，400]中相差為10的相鄰素數(shù)對(兩數(shù)中間沒有其它素數(shù))的對數(shù)。5n=0ForI=2To400-10x=0Forj=2ToSqr(I)IfIModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(I+10)If(I+10)Modj=0Theny=1:ExitForNextjIfy=0ThenFork=I+1ToI+9z=0Fork1=2ToSqr(k)IfkModk1=0Thenz=1:ExitForNextk1Ifz=0ThenExitForNextkIfk=I+10Thenn=n+1EndIfEndIfNextIPrintn16.若兩個連續(xù)的自然數(shù)的乘積減1后是素數(shù)，則稱此兩個連續(xù)自然數(shù)為友數(shù)對，該素數(shù)稱為n=0Fori=50To150a=i*(i+1)-1x=0Forj=2ToSqr(a)IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn17.若兩個連續(xù)自然數(shù)乘積減1后是素數(shù),則稱此兩個自然連續(xù)數(shù)為友數(shù)對,該素數(shù)稱為友素n=0Fori=40To119a=i*(i+1)-1x=0Forj=2ToSqr(a)IfaModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintnn=0Fori=2To21x=2^i-1k=0Forj=2ToSqr(x)IfxModj=0Thenk=1NextjIfk=0Thenn=n+1NextiPrintn19.[300，800]范圍內(nèi)同時滿足以下兩個條件的十進制數(shù).⑴其個位數(shù)字與十位數(shù)字之和除以百位數(shù)字；⑵該數(shù)是素數(shù)；求滿足上述條件的最大的三位十進制數(shù)。761Fori=300To800a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenk=0Forj=2ToSqr(i)IfiModj=0Thenk=1NextjIfk=0Thens=iEndIfNextiPrints20.求符合下列條件的四位完全平方數(shù)(某個正整數(shù)A是另一個正整數(shù)B的平方,則稱A為完全平方數(shù))，它的千位數(shù)字與十位數(shù)字之和等于百位數(shù)字與個位數(shù)字之積，例如，3136=562,且Fori=1000To9999x=Sqr(i)Ifx=Int(x)Thena=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If(a+c)=b*dThens=iEndIfNextiPrints21.設(shè)某四位數(shù)的千位數(shù)字平方與十位數(shù)字的平方之和等于百位數(shù)字的立方與個位數(shù)字的立方之s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If(a^2+c^2)=b^3+d^3Thens=s+iNextiPrints22.設(shè)某四位數(shù)的千位數(shù)字與十位數(shù)字的和等于百位數(shù)字與個位數(shù)字的積，例如，對于四位s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10If(a+c)=b*dThens=s+iNextiPrints23.有一個三位數(shù)滿足下列條件:(1)此三位數(shù)的三位數(shù)字各不相同;(2)此三位數(shù)等于它的各1301s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(a^3+b^3+c^3)=iAnda<>bAndb<>cAndc<>aThens=s+iNextiPrintsn=0Fori=1To999a=i\100b=i\10Mod10c=iMod10IfiMod3=0And(a=5Orb=5Orc=5)Thenn=n+1NextiPrintn25.有一個三位數(shù)滿足下列條件:(1)此三位數(shù)的三位數(shù)字各不相同;(2)此三位數(shù)等于它的各位數(shù)字的立方和。試求所有這樣的三位數(shù)中最大的一個是多少？407s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(a^3+b^3+c^3)=iAnda<>bAndb<>cAndc<>aThens=iNextiPrints26.有一個三位數(shù)滿足下列條件:(1)此三位數(shù)的三位數(shù)字各不相同;(2)此三位數(shù)等于它的各位數(shù)字的立方和。試求這種三位數(shù)共有多少個？4n=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(a^3+b^3+c^3)=iAnda<>bAndb<>cAndc<>aThenn=n+1NextiPrintnFori=10000To99999a=i\10000b=i\1000Mod10c=i\100Mod10d=i\10Mod10e=iMod10Ifa^2+b^2+c^2+d^2+e^2=100Thens=iNextiPrints28.所謂“水仙花數(shù)”是指一個三位數(shù)，其各位數(shù)字的三次方之和等于該數(shù)本身，例如：1s=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(a^3+b^3+c^3)=iThens=s+iNextiPrints29.設(shè)某四位數(shù)的各位數(shù)字的平方和等于100，問共有多少個這種四位數(shù)？49n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa^2+b^2+c^2+d^2=100Thenn=n+1NextiPrintn3773是回文數(shù)。求出[1000，9999]以內(nèi)的90n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Ifa+b*10+c*100+d*1000=iThenn=n+1NextiPrintn31.把一張一元鈔票,換成一分、二分和五分硬幣,每種至少8枚,問有多少種方案?80n=0Fori=8To100Forj=8To50Fork=8To20If(i+2*j+5*k=100)Thenn=n+1Nextk,j,iPrintnn=0Fori=0To50Forj=0To25Fork=0To10If(i+2*j+5*k=50)Thenn=n+1Nextk,j,iPrintnn=0Fori=1To50Forj=1To25Fork=1To10If(i+2*j+5*k=50)Thenn=n+1Nextk,j,iPrintn34.馬克思曾經(jīng)做過這樣一道趣味數(shù)學(xué)題：有30個人在一家小飯店里用餐，其中有男人、女如果要求男人、女人和小孩都有人參與，試求有多少種方案分配男人、女人和小孩的人數(shù)。9n=0Fori=1To50Forj=1To25k=30-i-jIf(i+2*j+3*k=50)Andk>0Thenn=n+1Nextj,iPrintnForc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf(i>100Andi<150And(1/(a*a)+1/(b*b)=1/(c*c)))Thenn=n+1Printa,b,cEndIfNexta,b,cPrintn2Forc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf(i<100And(1/(a*a)+1/(b*b)=1/(c*c)))Thenn=n+1Printa,b,cEndIfNexta,b,cPrintnn=0Forc=1To100Fora=1To24Forb=a+1To24s=a+b+cIfa^2+b^2=c^2Ands<=100Thenn=n+1Nextb,a,cPrintn38.倒勾股數(shù)是滿足公式：1/A^2+1/B^2=1/C^2的一組正整數(shù)(A，B，C)，例如，(156，65，BCABC5Forc=1To100Forb=c+1To100Fora=b+1To100i=a+b+cIf1/(a*a)+1/(b*b)=1/(c*c)Thenn=n+1Printa,b,cEndIfNexta,b,cPrintn39.勾股弦數(shù)是滿足公式：A^2+B^2=C^2(假定A<B<C)的一組正整數(shù)(A，B，C)，例如，(3，BCMax=0Fora=1To100Forb=a+1To100Forc=b+1To100s=a+b+cIfa^2+b^2=c^2Ands>MaxThenMax=sNextc,b,aPrintMax40若某整數(shù)平方等于某兩個正整數(shù)平方之和的正整數(shù)稱為弦數(shù)。例如：由于3^2+4^2=5^2，n=0Fork=100To200Fori=1TokForj=i+1TokIfi^2+j^2=k^2Thenn=n+1Nextj,i,kPrintnFork=131To200Fori=1TokForj=i+1TokIfi^2+j^2=k^2ThenGoTo10Nextj,i,kPrintk42求在[10，1000]之間的所有完數(shù)之和。各真因子之和(不包括自身)等于其本身的正整Sum=0Form=10To1000s=0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=Sum+mNextmPrintSum43一個數(shù)如果恰好等于它的所有真因子之和，這個數(shù)就稱為“完數(shù)”。例如,6的真因子為Sum=0Form=1To1000s0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=mNextmPrintSumSum=0Form=1To1000s0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenn=n+1Ifn=2ThenSum=m:ExitForNextmPrintSumSum=0Form=1To1000s0Fori=1Tom-1IfmModi=0Thens=s+iNextiIfs=mThenSum=Sum+mNextmPrintSum46求[200,300]之間有奇數(shù)個不同因子的最大的整數(shù)(在計算因子個數(shù)時,包括該數(shù)本身)。Form=200To300k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfkMod2<>0ThenA=mNextmPrintA47求[200,300]之間第二大有奇數(shù)個不同因子的整數(shù)(在計算因子個數(shù)時,包括該數(shù)本身)。n=0Form=200To300k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfkMod2<>0Thenn=n+1Ifn=2ThenA=m:ExitForNextmPrintAn=0Form=10To100k=0Fori=1TomIfmModi=0Thenk=k+1NextiIfmModk=0Thenn=n+1NextmPrintn要求：按四舍五入的方式精確到小數(shù)點后第四位。t=1Fori=2To50t=t-1/iNextiPrintRound(t,4)(按四舍五入的方式精確到小數(shù)點后第四位)。t=0Fori=1To50t=t+1/i^2NextiPrintRound(t,4)-2.49920.691s=0Fori=1To100s=s+(1/(2*i-1)-1/(2*i))NextiPrintRound(s,3)sn2.7183s=1t=1Fori=1To50t=t*is=s+1/tNextiPrintRound(s,4)53利用格里高利公式：α/4=1-1/3+1/5-1/7+1/9-1/11+…-1/99，求α的值。要求：按四舍3.12s=0a=1Fori=1To99Step2s=s+1/i*aa=-aNextiPrintRound(s*4,2)1/(1*2)+1/(2*3)+1/(3*4)+....+1/(N*(N+1))的值,N=20,要求：按四舍五入的方式精0.95s=0Fori=1To20s=s+1/(i*(i+1))NextiPrintRound(s,2)1.48s=0Fori=1To500IfiMod5=0OriMod9=0Thens=s+1/iEndIfNextiPrintRound(s,2)s=0a=1b=2Fori=1To30s=s+a/bt=aa=bb=t+bNextiPrintRound(s,2)57設(shè)S(n)=1-1/3+1/5-1/7+…1/(2n-1)，求S(100)的值，要求S(100)按四舍五入方式精s=0a=1Fori=1To100s=s+1/(2*i-1)*aa=-aNextiPrintRound(s,4)0.9804s=0Fori=1To50s=s+1/(i*(i+1))NextiPrintRound(s,4)計算y=1+2/3+3/5+4/7+…+n/(2*n-1)的值,n=50,要求：按四舍五入的方式精確到小數(shù)點26.47s=0Fori=1To50s=s+i/(2*i-1)NextiPrintRound(s,2)0.91s=0x=2a=1t=1Fori=1To20*2+1t=t*iIfiMod2<>0Thens=s+x^i/t*aa=-aEndIfNextiPrintRound(s,2)始，其分子是前一項的分子與分母之和，其分母是前一項的分子)。(按四舍五入的方式精確到小數(shù)點后第二位)81.2s=0a=2b=1Fori=1To50s=s+a/bt=aa=a+bb=tNextiPrintRound(s,2)62已知：A1=1,A2=1/(1+A1),A3=1/(1+A2),A4=1/(1+A3),……,求A50.(按四舍五入的a=1Fori=2To50a=1/(1+a)NextiPrintRound(a,3)63已知：Sn=2/1+3/2+4/3+…+(n+1)/n,求Sn不超過50的最大值(按四舍五入的方式精確49.395s=0i=1DoWhiles<50t=(i+1)/is=s+ti=i+1LoopPrintRound(s-t,3)64若一個四位正整數(shù)是另一個正整數(shù)的平方，且各位數(shù)字的和是一個平方數(shù)，則稱該四位81977s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10x=Sqr(i)y=Sqr(a+b+c+d)Ifx=Int(x)Andy=Int(y)Thens=s+iNextiPrints都是平方數(shù)，則稱8和17是自然數(shù)對(8，17)。假定(A，B)與(B，A)是同一個自然數(shù)對且s=0Fora=1To100Forb=1Toa-1x=Sqr(a+b)y=Sqr(a-b)Ifx=Int(x)Andy=Int(y)Thens=s+bNextb,aPrints66若一個四位正整數(shù)是另一個正整數(shù)的平方，且各位數(shù)字的和是一個平方數(shù)，則稱該四位正s=0n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10x=Sqr(i)y=Sqr(a+b+c+d)Ifx=Int(x)Andy=Int(y)Thens=s+i:n=n+1-750874Ifn=10ThenExit-750874NextiPrints25，25s=0Fori=2To1000x=i^2t=10DoWhilex\t>0A=xModtt=t*10IfA=iThenExitDoLoopIfA=iThens=s+iNextiPrints是平方數(shù)，則稱8和17是自然數(shù)對(8，17)。假定(A，B)與(B，A)是同一個自然數(shù)對且假509s=0Fora=1To100Forb=1Toa-1x=Sqr(a+b)y=Sqr(a-b)Ifx=Int(x)Andy=Int(y)Thens=s+a-bNextb,aPrints69已知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)。f0=1f1=2f2=3s=f0+f1+f2Fori=3To30f3=f2+2*f1-5*f0s=s+f3f0=f1f1=f2f2=f3NextiPrints70已知f(0)=f(1)=1f(2)=0f(n)=f(n-1)-2*f(n-2)+f(n-3)(n>2)f0=1f1=1f2=0Max=f1Fori=3To50f3=f2-2*f1+f0Iff3>MaxThenMax=f3f0=f1f1=f2f2=f3NextiPrintMaxF(1)=1ifn=1F(2)=1ifn=2F(n)=F(n-1)+F(n-2)ifn>2f1=1f2=1fFori=3To50f3=f2+f1IfiMod2=0Thens=s+f3f1=f2f2=f3NextiPrints20365011073F(1)=1ifn=1F(2)=1F(n)=F(n-1)+F(n-2)f1=1f2=1Fori=3To50f3=f2+f1f1=f2f2=f3NextiPrintf39227465f1=1f2=1DoWhilef2<10000000f3=f2+f1f1=f2f2=f3LoopPrintf174數(shù)列E(1)=E(2)=1E(n)=(n-1)*E(n-1)+(n-2)*E(n-2)(n>2)E1=1E2=1n=2DoWhileE2<30000E3=(n-1)*E2+(n-2)*E1n=n+1E1=E2E2=E3LoopPrintn-275已知f(0)=f(1)=1f(2)=0f(n)=f(n-1)-2f(n-2)+f(n-3)(n>2)求f(0)到f(50)的所有51個值中的最大值(或最小值)'598325('-288959)f0=1f1=1f2=0Min=f0Max=f1Fori=3To50f3=f2-2*f1+f0Iff3>MaxThenMax=f3Iff3<MinThenMin=f3f0=f1f1=f2f2=f3NextiPrintMax,MinF(1)=1ifn=1F(2)=1ifn=2F(n)=F(n-1)+F(n-2)ifn>2f1=1f2=1fFori=3To49f3=f2+f1IfiMod2<>0Thens=s+f3f1=f2f2=f3NextiPrintsF(1)=1ifn=1F(2)=1ifn=2F(n)=F(n-1)+F(n-2)ifn>2f1=1f2=1fFori=3To45f3=f2+f1f1=f2f2=f3NextiPrintf3f1=0f2=0f3=1s=f1+f2+f3Fori=4To30f4=f3+f2+f1s=s+f4f1=f2f2=f3f3=f4NextiPrintss=0n=1DoWhiles<=10s=s+1/nn=n+1LoopPrintn-180已知S1=2,S2=2+4,S3=2+4+6,S4=2+4+6+8,S5=2+4+6+8+10，…,求s=0:n=0Fori=1To20n=n+2*is=s+nNextiPrintss=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=s+iNexteNextiPrintsdFori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=iNexteNextiPrintsn=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThenn=n+1NexteNextiPrintns=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9t=b*1000+c*100+d*10+eIfi*e=tThens=s+tNexteNextiPrintsn=0Fori=10000To99999a=i\10000b=i\1000Mod10c=i\100Mod10d=i\10Mod10f=iMod10Fore=2To9t=f*10000+d*1000+c*100+b*10+aIfi*e=tThenn=n+1NexteNextiPrintnxyxy|<=200內(nèi)的整數(shù)解。試問這樣的整數(shù)解有多少組？50n=0Forx=-150To150Fory=-200To200If8*x-5*y=3Thenn=n+1Nexty,xPrintn87求方程8x-5y=3,在|x|<=150,|y|<=200內(nèi)的整數(shù)解。試問這樣的整數(shù)解中|x|*|y|的最24676Max=0Forx=-150To150Fory=-200To200If8*x-5*y=3AndAbs(x)*Abs(y)>MaxThenMax=Abs(x)*Abs(y)Nexty,xPrintMax88若(x,y,z)滿足方程：x^2+y^2+z^2=55^2(注：要求x>y>z),則(x,y,z)稱為方程zMax=0Min=55^2Forx=-55To55Fory=-55Tox-1Forz=-55Toy-1Ifx^2+y^2+z^2=55^2Thens=Abs(x)+Abs(y)+Abs(z)Ifs>MaxThenMax=sIfs<MinThenMin=sEndIfNextz,y,xPrintMax,MinMax=0Forx=1To25Fory=1To25Forz=1To25Ifx^2+y^2+z^2=25^2ThenIfx+y+z>MaxThenMax=x+y+zEndIfNextz,y,xPrintMax90(x,y,z)滿足