二级VFP改错题

IDSJBHSTNRSTDAMTLS13求出50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。SETTALKOFFCLEARS0FORN1TO50A1002NSSAIFS3000LOOPENDIFENDFORN1SETTALKONRETURN23彭小宁24求出100以内的最大的自然数N，使得算式11/121/12N的值小于19。SETTALKOFFCLEARS0T0FORN1TO100SS1/NTTSIFT19EXITENDIFENDFORN1SETTALKONRETURN18彭小宁2求出10,1000内所有能同时被7和9整除的整数之和。SETTALKOFFCLEARS0FORX10TO1000IFMODX,70ANDMODX,90SXENDIFENDFORXSETTALKONRETURN7560彭小宁22求出100以内使得算式1/121/231/NN1的值小于0952的最大的自然数N。SETTALKOFFCLEARS0FORN1TO100SS1/NN1IFS135LOOPENDIFENDFORNSETTALKONRETURN14彭小宁19求出100以内使得算式1325N2N1的值小于10000的最大的自然数N。SETTALKOFFCLEARS0FORN1TO100AN2N1SSAIFS10000LOOPENDIFENDFORN1SETTALKONRETURN23彭小宁18求出100以内使得算式1223NN1的值大于6000的最小的自然数N。SETTALKOFFCLEARS0FORN1TO100ANN1SSAIFS3000EXITENDIFENDFORSSETTALKONRETURN25彭小宁15求出50以内最大的自然数N，使得从101开始的连续N个奇数之和小于2000。SETTALKOFFCLEARS0FORN1TO50A992NSSAIFS2000LOOPENDIFENDFORNSETTALKONRETURN17彭小宁21求出100以内使得算式11212N的值大于1500的最小的自然数N。SETTALKOFFCLEART0FORN1TO100STNTSNIFT1500EXITENDIFENDFORNSETTALKONRETURN20彭小宁12求出100以内最小的自然数N，使得从1开始的连续N个自然数的立方之和大于30000。SETTALKOFFCLEARS0FORN1TO100SSNN3IFS30000LOOPENDIFENDFORNSETTALKONRETURN19彭小宁11求出100以内最大的自然数N，使得从1开始的连续N个自然数的立方和小于20000。SETTALKOFFCLEARS0FORN1TO100SSN3IFS20000EXITENDIFENDFORNSETTALKONRETURN16彭小宁10求出100以内最小的自然数N，使得从1开始的连续N个自然数的平方之和大于5500。SETTALKOFFCLEARS0FORN1TO100SSNNIFS5000EXITENDIFENDFORNSETTALKONRETURN24彭小宁8求出100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于36。SETTALKOFFCLEARS0FORN1TO100SS1/NIFS35LOOPENDIFENDFORN1SETTALKONRETURN18彭小宁6求出101,299内所有能被2整除但不能同时被3和5整除的整数之和。SETTALKOFFCLEARS0FORX101TO299IFMODX,20ANDNOTMODX,30ANDMODX,50XSXENDIFENDFORSSETTALKONRETURN18630彭小宁5求出100,800内所有既不能被5整除也不能被7的整数的个数。SETTALKOFFCLEARN0FORX100TO800IFMODX,50ANDMODX,70NX1ENDIFENDFORXSETTALKONRETURN480彭小宁3求出10,1000内所有能被6整除但不能被9整除的整数之和。SETTALKOFFCLEARS0FORX10TO1000IFMODX,60ORMODX,90XSXENDIFENDFORSSETTALKONRETURN55440彭小宁1求出10,1000内所有能被7和9中至少一个数整除的整数的个数。SETTALKOFFCLEARN0FORX10TO1000IFMODX,70ANDMODX,90NNXENDIFENDFORNSETTALKONRETURN236彭小宁149梅森尼数是指能使2N1为素数的数N，求1，21范围内的梅森尼数的个数SETTALKOFFCLEAN0S2FORX2TO21SS2FLAG1FORI1TOINTSQRTXIFMODS1,I0FLAG0EXITENDIFENDFORIFFLAG0NN1ENDIFENDFORNRETURN14彭小宁53设一数列FNF11，当N1时FN1/FN11。试求出此数列的前20项中小于0618的项的数目。SETTALKOFFCLEARF1000000N0FORK1TO20F1/F1IFFABCMAXABCENDIFENDIFENDFORMA6000彭小宁110对自然数A、B、C，若A678EXITENDIFENDFORNSETTALKONRETURN13彭小宁104已知数列FNF11，F23，当N3,4,5,时，FNFN1FN2。试求出100以内最大的自然数N使得此数列的前N项之和第5次等于5。SETTALKOFFCLEARDIMENSIONF100F11F23S0T0FORN3TO100FNFN1FN2SSFNIFS5TTSIFT5EXITENDIFENDIF28彭小宁120编写程序，计算10065374以内个位上的数等于百位上的数的个数。SETTALKOFFCLEAN100FORI1TO65374BWMODI,1000/100GWMODI,10IFGWBWNN1ENDIFENDFORNRETURN6528彭小宁102已知数列FNF11，F24，当N3,4,5,时，FN3FN1FN2。试求出100以内最大的自然数N使得此数列的前N项之和首次大于75364321。SETTALKOFFCLEARDIMENSIONF100F11F24S0FORN3TO100FN3FN1FN2SSFNIFS5364321LOOPENDIFENDFORNSETTALKONRETURN16彭小宁100求方程9X4Y2000的所有正整数解的|XY|的最小值。SETTALKOFFCLEARMIN0FORX1TO230YINT10009X/4ZABSXYIF9X4Y1000ANDY0ANDMINZMINZENDIFENDFORMINSETTALKONRETURN3彭小宁99求方程9X4Y2000的所有正整数解的|XY|的最大值。SETTALKOFFCLEARMAX2000/42000/9FORX1TO230YINT10009X/4ZABSXYIF9X4Y1000ANDY0ANDMAXZMAXZENDIFENDFORMAXSETTALKONRETURN237彭小宁98求方程4X9Y1000的正整数解的个数。SETTALKOFFCLEARN0FORX1TO250YINT10004X/9IF4X9Y1000NNXENDIFENDFORNSETTALKONRETURN27彭小宁97求方程3X7Y1在条件|X|ZMAXZENDIFENDFORMAXSETTALKONRETURN127彭小宁95求方程3X7Y1在条件|X|2时FN3FN2FN1。试求此数列的前20项中所有正数项之和。SETTALKOFFCLEARDIMENSIONF20F11F21S0FORN3TO20FN3FN1FN2IFFN0SSFNENDIFENDFORSSETTALKONRETURN343371彭小宁105求100200内的所有素数的个数。（素质是指只能被1和本身整除的数）SETTALKOFFCLEAN0FORI100TO200F1FORJ2TOIIFMODI,J0F0LOOPENDIFENDFORIFF1NN1ENDIFENDFORNRETURN21彭小宁133把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后硬币总数为50枚的兑换方案有多少种SETTALKOFFCLEAN0FORYI1TO50FORER1TO50FORWU1TO20IFYIERWU50NN1ENDIFENDFORENDFORENDFORNSETTALKONRETURN12彭小宁148梅森尼数是指能使2N1为素数的数N，求1，21范围内最大的梅森尼数SETTALKOFFCLEAMAX0S1FORX2TO21SS2FLAG1FORI2TOINTSQRTS1IFMODS,I0FLAG0EXITENDIFENDFORIFFLAG0MAXXENDIFENDFORMAXRETURN19彭小宁147求S11/31/51/7的前100项之和（精确到小数点后4位）SETTALKOFFCLEAS10000F1FORI1TO100SSF/2I1F1FENDFORSRETURN07829彭小宁146求S11/21/31/4的前100项之和（精确到小数点后4位）SETTALKOFFCLEAS10000F1FORI1TO100SSF/IFFENDFORSRETURN06882彭小宁145分子分母为正整数，分子小于分母的分数称为真分数。对于分数的分子分母取值范围为50，90且分母能被3整除、分子能被5整除的真分数共有多少个SETTALKOFFCLEAN1FORA50TO89FORB50TO90IFMODB,30NN1ENDIFENDFORENDFORNSETTALKONRETURN6363彭小宁144分子分母为正整数，分子小于分母的分数称为真分数。对于分数的分子分母取值范围为50，90且分母能被3整除的真分数共有多少个SETTALKOFFCLEAN1FORA50TO90FORB50TO90IFMODB,30NN1ENDIFENDFORENDFORNSETTALKONRETURN287彭小宁143已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求200,1000之间能被其因子数目整除的中且能被3整除的数个。SETTALKOFFCLEASUM0FORN200TO1000S0FORI1TON1IFMODN,I0SS1ENDIFENDFORIFMODN,S0ORMODN,30SUMSUM1ENDIF40彭小宁142已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求200,300之间能被其因子数目整除的中且能被3整除的数之和。SETTALKOFFCLEASUM0FORN200TO300S0FORI1TONIFMODN,I0SS1ENDIFENDFORIFMODN,S0ORMODN,30SUMSUMNENDIFENDF1713彭小宁141已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求200,300之间能被其因子数目整除的中最小数。SETTALKOFFCLEAMIN0FORN200TO300S0FORI1TON1IFMODN,I0SS1ENDIFENDFORIFMODN,S0MINNLOOPENDIFENDFORMINSET204彭小宁140已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求300,1000之间能被其因子数目整除的总和。SETTALKOFFCLEASM0FORN300TO1000S0FORI2TON1IFN/I0SS1ENDIFENDFORIFMODN,S0SMSMXENDIFENDFORSMSETTALKONRETURN36550彭小宁139已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求200,500之间能被其因子数目整除的个数。SETTALKOFFCLEANU0FORN200TO500S0FORI2TON1IFMODN,I0SS1ENDIFENDFORIFMODN,S0NUNU1ENDIFENDFORNUSETTALKONRET28彭小宁138已知24有8个正整数因子即1,2,3,4,6,8,12,24，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的个数。SETTALKOFFCLEAC0FORN100TO300S0FORI1TON1IFINTI/100SS1ENDIFENDFORIFMODN,S0CC1ENDIFENDFORCSETTALKONRETURN19彭小宁137找满足以下条件X2Y2412且XY之值最小的二个正整数X,Y,求XY之值SETTALKOFFCLEAMIN1FORX0TO41FORY0TO41IFXXYY4141IFMINXYMAXXYENDIFENDIFENDFORENDFORMAXSETTALKONRETURN49彭小宁118编写程序，计算10010000以内个位上的数小于百位上的数的所有数之和。SETTALKOFFCLEAN100FORI100TO10000BWMODI,1000GWMODI,10IFGWMAX1TMAX1ENDIFIFMIN1TMIN73彭小宁128设某四位数的各位数字的平方和等于100，问满足这种条件的最小的四位数且是素数的数是多少SETTALKOFFCLEAMIN9999FORX1000TO9999F1FORI2TOINTSQRTXIFMODX,I0F0EXITENDIFENDFORIFF0AX/1000BINTXA1000/100CI1933彭小宁129设某四位数的各位数字的平方和等于100，问满足这种条件的最大数和最小数之差是多少SETTALKOFFCLEAMIN19999MAX11000FORX1000TO9999AINTX/1000BINTXA1000/100CINTX/100/10DMODX,10IFAABBCCDD100IFMAX12时FNFN2FN1。试求此数列的第15项至第25项共11项之和。SETTALKOFFCLEARDIMENSIONF25F11F21S0FORN3TO25FNFN2FN1IFN1时FN1/FN11。试求出此数列的前20项中大于0618的项的数目。SETTALKOFFCLEARF100000000N0FORK2TO20F1/F1IFF0618NN1ENDIFK,F,NENDFORNSETTALKONRETURN15彭小宁23求出100以内使得算式1/111/231/N2N1的值大于135的最小的自然数N。SETTALKOFFCLEARS0FORN1TO100AN2N1SSAIFS135LOOPENDIFENDFORNSETTALKONRETURN14彭小宁52一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数N，使得此球从开始下落至第N次着地时在垂直方向所经过的总路程不超过590米。SETTALKOFFCLEARH100S0FORN1TO100H3/4HSS2HIFS590EXITENDIFENDFORN1SETTALKONRETURN6彭小宁50求出100以内最大的自然数N，使得从1开始的连续N个自然数的立方之和小于99999。SETTALKOFFCLEARS0FORN1TO100ANNNSSAN,A,SIF88888EXITENDIFENDFORASETTALKONRETURN24彭小宁48已知数列FNF11，F24，当N3,4,5,时，FN3FN1FN2。试求出100以内最小的自然数N使得此数列的第N项大于7654321。SETTALKOFFCLEARDIMENSIONF100F11F24FORN3TO100FN3FN1FN2IFFN800EXITENDIFENDFORNSETTALKONRETURN17彭小宁46已知数列1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求最大的自然数N使得此数列的前N项之和小于1000。SETTALKOFFCLEARA1S0FORN1TO100AAN1SSAIFS5000LOOPENDIFENDFORNSETTALKONRETURN5051彭小宁43求所有符合算式ABBA2701的最小的两位数AB（即A10B）。其中A、B是19之间的一位整数。SETTALKOFFCLEARFORX11TO99AX/10BMODX,10Y10ABIFXY2701EXITENDIFENDFORXSETTALKONRETURN37彭小宁57设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。试求出此数列的前25项中大于54321的项数。SETTALKOFFCLEARSTORE1TOF1,F2,F3N0FORK1TO25FF1F2F3IFF54321NN1ENDIFF1F2F2F3F3F1ENDFORNSETTALKONRETURN5彭小宁34求出45678的所有非平凡因子（即除1和它本身以外的约数）中奇数的个数。SETTALKOFFCLEARA45678N0FORB3TOASTEP2IFMODB,A0NN1ENDIFENDFORBSETTALKONRETURN7彭小宁27求出100以内使算式11/21/31/41/N1/N1的值大于0682的最小的奇数N。SETTALKOFFCLEARS0FORN1TO100A1/N1/N1SSAIFS2LOOPENDIFENDFORNSETTALKONRETURN18彭小宁30设等比数列1，2，4，8，。求使得此数列的前N项之和大于100000的最小的自然数N。SETTALKOFFCLEARA1S1FORN1TO100SSAIFS100000EXITENDIFA2AENDFORNSETTALKONRETURN17彭小宁31设等比数列1，2，4，8，。求使得此数列的前N项之和小于150000的最大的自然数N。SETTALKOFFCLEARA1S0FORN1TO100SSAIFS150000EXITENDIFA2AENDFORNSETTALKONRETURN17彭小宁42求出9269和8671的最小公倍数。算法提示A与B的最小公倍数是A的倍数中第1个被B整除的数SETTALKOFFCLEARA9269B8671FORKATOABSTEPAIFMODK,B0LOOPENDIFENDFORKSETTALKONRETURN268801彭小宁33设等比数列1，3，9，27，。求使得此数列的前N项之和小于3456789的最大的自然数N。SETTALKOFFCLEARA1S0FORN1TO100SSAIFS0618NN1ENDIFF1F2F2F1ENDFORNSETTALKONRETURN20彭小宁32设等比数列1，3，9，27，。求使得此数列的前N项之和大于2345678的最小的自然数N。SETTALKOFFCLEARA1S0FORN1TO100SSAIFS2345678EXITENDIFA3AENDFORNSETTALKONRETURN14彭小宁72求出1234,6789内至少有两位数字是7的所有整数之和（注意AT函数和STR函数的功能）。SETTALKOFFCLEARS0FORX1234TO6789IFAT7,STRX,20SXENDIFENDFORSSETTALKONRETURN678981彭小宁26求出100以内最大的奇数N使得算式11/21/31/41/N1/N1的值小于068。SETTALKOFFCLEARS0FORN1TO100STEP2A1/N1/N1SSAIFS0RMODA,PIFR1N1ENDIFAINTA/PENDDONSETTALKONRETURN13彭小宁85已知数列1、2、4、7、11、16、，其特点是相邻两项之差恰好构成自然数列1、2、3、4、5、。求此数列的前100项中能被4整除的项之和。SETTALKOFFCLEARA1S0FORN2TO100AANAIFMODA,40SSNENDIFENDFORSSETTALKONRETURN41700彭小宁84已知数列1、2、4、7、10、15、，其特点是相邻两项之差恰好构成自然数列1、2、3、4、5、。求此数列的前100项中能被4整除的项的个数。SETTALKOFFCLEARA1K0FORN1TO100AANIFMODN,40KK1ENDIFENDFORKSETTALKONRETURN25彭小宁83设A234，B569，求A/B的精确值中小数点后前40位数字中数字8的个数。（提示基于人工计算的思想）SETTALKOFFCLEARA234B569N0FORK1TO40AA10QINTA/BIFQ8NNQENDIFAMODA,BENDFORKSETTALKONRETURN6彭小宁82设A123，B541，求A/B的精确值中小数点后40位数字中数字1的个数。（提示基于人工计算的思想）SETTALKOFFCLEARA123B541N0FORK1TO40AA0QINTA/BIFQ1NN1ENDIFAMODA,BENDFORNSETTALKONRETURN3彭小宁81求满足条件AB54321的所有自然数对A、B对应的AB的最小值。（提示设A0618NN1ENDIFFF1F2F1F2FF2FF1ENDFORNSETTALKONRE29彭小宁61已知一个由分数组成的数列1/2，2/3，3/5，5/8，8/13，其特点是从第2个分数起，每个分数的分子都是前一分数的分母而其分母都是其前一分数的分子与分母之和。试求出此数列的前25项中其值小于0618的项数。SETTALKOFFCLEARF11F22N0FORK1TO25GF2/F1IFG0SS1ENDIFENDFORSSETTALKONRETURN124266彭小宁65求出123,321内恰好有两个数字相同的数的个数。SETTALKOFFCLEARN0FORX123TO321AINTX/100BINTXA100/10CXA100B10IFABANDACORABANDACNN1ENDIFENDFORNSETTALKONRETURN45彭小宁73求出750,950内最多有一位数字是8的所有整数之和（注意AT函数和STR函数的功能）。SETTALKOFFCLEARS0FORX750TO950IFAT8,STRX,20SXENDIFENDFORSSETTALKONRETURN153575彭小宁67求在100,999内所有不含数字0且各位数字之积被96整除的数之和。SETTALKOFFCLEARS0FORX100TO999AINTX/100BINTXA100/10CMODX,1IFMODABC,960SSXENDIFENDFORSSETTALKONRETURN26640彭小宁68求在100,999内所有不含数字0且各位数字之和被14整除的数之和。SETTALKOFFCLEARS0FORX100TO999AINTX/100BINTXA100/10CXA100B10IFMODABC,140SXENDIFENDFORSSETTALKONRETURN31080彭小宁69求出100,600内被除3余2并且被除5余3的整数的个数。SETTALKOFFCLEARN0FORX100TO600IFMODX,3523NX1ENDIFENDFORNSETTALKONRETURN33彭小宁70求出200,800内被除3余1并且被除5余3的整数的和。SETTALKOFFCLEARS0FORX200TO800IFMODX,31ORMODX,53SS1ENDIFENDFORSSETTALKONRETURN20020彭小宁71求出1234,6789内中间两位数字之和等于首尾两位数字之积的数的个数。SETTALKOFFCLEARN0FORX1234TO6789AINTX/1000BINTXA1000/100CINTXA1000B100/10DXA1000B100C10IFBCADNN1ENDIFENDFORNSETTALKONRETURN175彭小宁88求出将十进制整数99887766554等值转换为十六进制形式表示后其中字母C的个数。（提示模拟人工计算的“16除取余”法）SETTALKOFFCLEARA99887766554P16N0DOWHILEA0RMODA,PIFR11NNRENDIFAINTA/PENDDONSETTALKONRETURN2彭小宁64求出123,789内至少有两个数字相同的数的个数。SETTALKOFFCLEARN0FORX123TO789AINTX/100BINTXA/10CXABIFABORACORBCNN1ENDIFENDFORNSETTALKONRETURN180彭小宁47已知数列1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求100以内最小的自然数N使得此数列的前N项之和大于800。SETTALKOFFCLEARA0S0FORN1TO100AANSSAN,A,SIFS800EXITENDIFENDFORNSETTALKONRETURN17彭小宁55设有用26个字母表示的26个表达式A1，B1/A1，C1/B2，Z1/Y25。试求出这26个字母中其值小于01的字母个数。SETTALKOFFCLEARLETT1N0FORK1TO26LETT1/LETTKIFLETT1时FN1/FN11。试求出此数列的前20项中大于0618的项的数目。SETTALKOFFCLEARF100000000N0FORK2TO20F1/F1IFF0618NN1ENDIFK,F,NENDFORNSETTALKONRETURN15彭小宁53设一数列FNF11，当N1时FN1/FN11。试求出此数列的前20项中小于0618的项的数目。SETTALKOFFCLEARF1000000N0FORK1TO20F1/F1IFF590EXITENDIFENDFORN1SETTALKONRETURN6彭小宁51一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数N，使得此球从开始下落至第N次着地时在垂直方向所经过的总路程超过678米。SETTALKOFFCLEARH100S0FORN2TO100HH3/4SSHIFS678EXITENDIFENDFORNSETTALKONRETURN13彭小宁50求出100以内最大的自然数N，使得从1开始的连续N个自然数的立方之和小于99999。SETTALKOFFCLEARS0FORN1TO100ANNNSSAN,A,SIF0618NN1ENDIFF1F2F2F1ENDFORNSETTALKONRETURN20彭小宁46已知数列1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求最大的自然数N使得此数列的前N项之和小于1000。SETTALKOFFCLEARA1S0FORN1TO100AAN1SSAIFS5000LOOPENDIFENDFORNSETTALKONRETURN5051彭小宁43求所有符合算式ABBA2701的最小的两位数AB（即A10B）。其中A、B是19之间的一位整数。SETTALKOFFCLEARFORX11TO99AX/10BMODX,10Y10ABIFXY2701EXITENDIFENDFORXSETTALKONRETURN37彭小宁42求出9269和8671的最小公倍数。算法提示A与B的最小公倍数是A的倍数中第1个被B整除的数SETTALKOFFCLEARA9269B8671FORKATOABSTEPAIFMODK,B0LOOPENDIFENDFORKSETTALKONRETURN268801彭小宁41求前1,100内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。SETTALKOFFCLEARS0FORN1TO100IFMODN,60ANDMODN,80SSQRTSNENDIFENDFORROUNDS,0SETTALKONRETURN162彭小宁40求出179869和196037的最大公约数。SETTALKOFFCLEARA179869B196037FORD2TOAIFMODD,A0ANDMODD,A0CMAXA,BENDIFENDFORCSETTALKONRETURN35彭小宁49求出100以内最小的自然数N，使得从1开始的连续N个自然数的立方之和大于88888。SETTALKOFFCLEARS0FORN1TO100AN3SSAIFS88888EXITENDIFENDFORASETTALKONRETURN24彭小宁65求出123,321内恰好有两个数字相同的数的个数。SETTALKOFFCLEARN0FORX123TO321AINTX/100BINTXA100/10CXA100B10IFABANDACORABANDACNN1ENDIFENDFORNSETTALKONRETURN45彭小宁25求出100以内使得算式11/121/12N的值大于171828的最小的自然数N。SETTALKOFFCLEARA100000000S000000000FORN1TO100AA/NSSAIFS0SXENDIFENDFORSSETTALKONRETURN153575彭小宁72求出1234,6789内至少有两位数字是7的所有整数之和（注意AT函数和STR函数的功能）。SETTALKOFFCLEARS0FORX1234TO6789IFAT7,STRX,20SXENDIFENDFORSSETTALKONRETURN678981彭小宁71求出1234,6789内中间两位数字之和等于首尾两位数字之积的数的个数。SETTALKOFFCLEARN0FORX1234TO6789AINTX/1000BINTXA1000/100CINTXA1000B100/10DXA1000B100C10IFBCADNN1ENDIFENDFORNSETTALKONRETURN175彭小宁70求出200,800内被除3余1并且被除5余3的整数的和。SETTALKOFFCLEARS0FORX200TO800IFMODX,31ORMODX,53SS1ENDIFENDFORSSETTALKONRETURN20020彭小宁69求出100,600内被除3余2并且被除5余3的整数的个数。SETTALKOFFCLEARN0FORX100TO600IFMODX,3523NX1ENDIFENDFORNSETTALKONRETURN33彭小宁68求在100,999内所有不含数字0且各位数字之和被14整除的数之和。SETTALKOFFCLEARS0FORX100TO999AINTX/100BINTXA100/10CXA100B10IFMODABC,140SXENDIFENDFORSSETTALKONRETURN31080彭小宁56求所有符合算式ABBA3627的最大的两位数AB（即A10B）。其中A、B是19之间的一位整数。SETTALKOFFCLEARFORX11TO99AINTX/10BMODX,10YA10BIFXY3627EXITENDIFENDFORXSETTALKONRETURN93彭小宁66求出123,456内恰好有两个数字相同的所有整数之和。SETTALKOFFCLEARS0FORX123TO456AINTX/100BINTXA100/10CMODX,1IFABANDACORABANDACSSXENDIFENDFORSSETTALKONRETURN26406彭小宁57设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。试求出此数列的前25项中大于54321的项数。SETTALKOFFCLEARSTORE1TOF1,F2,F3N0FORK1TO25FF1F2F3IFF54321NN1ENDIFF1F2F2F3F3F1ENDFORNSETTALKONRETURN5彭小宁64求出123,789内至少有两个数字相同的数的个数。SETTALKOFFCLEARN0FORX123TO789AINTX/100BINTXA/10CXABIFABORACORBCNN1ENDIFENDFORNSETTALKONRETURN180彭小宁63回文指的是正读和反读都一样的一串字符，如121、1221。试求出1234,9876内回文数的个数。SETTALKOFFCLEARN0FORX1234TO9876AINTN/1000BINTXA1000/100CINTXA1000B100/10DXA1000B100C10IFABANDCDN1ENDIFENDFORNSETTALKONRETURN85彭小宁62回文指的是正读和反读都一样的一串字符，如121、1221。试求出1421,4112内所有回文数的和。SETTALKOFFCLEARS0FORX1421TO4112AX/1000BINTXA1000/100CINTXA1000B100/10DXA1000B100C10IFADANDBCSSXENDIFENDFORSSETTALKONRETURN74250彭小宁61已知一个由分数组成的数列1/2，2/3，3/5，5/8，8/13，其特点是从第2个分数起，每个分数的分子都是前一分数的分母而其分母都是其前一分数的分子与分母之和。试求出此数列的前25项中其值小于0618的项数。SETTALKOFFCLEARF11F22N0FORK1TO25GF2/F1IFG0618NN1ENDIFFF1F2F1F2FF2FF1ENDFORNSETTALKONRE29彭小宁59已知数列FNF11，F24，当N3,4,5,时，FN3FN1FN2。试求出100以内最大的自然数N使得此数列的第N项不超过7654321。SETTALKOFFCLEARF11F24FORN3TO100F3F2F1N,FIFF35LOOPENDIFENDFORN1SETTALKONRETURN18彭小宁39求出179869和196037的最大公约数。SETTALKOFFCLEARA179869B196037FORD2TOAIFMODD,A0ANDMODD,A0CMAXA,BENDIFENDFORCSETTALKONRETURN2021彭小宁15求出50以内最大的自然数N，使得从101开始的连续N个奇数之和小于2000。SETTALKOFFCLEARS0FORN1TO50A992NSSAIFS2000LOOPENDIFENDFORNSETTALKONRETURN17彭小宁13求出50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。SETTALKOFFCLEARS0FORN1TO50A1002NSSAIFS3000LOOPENDIFENDFORN1SETTALKONRETURN23彭小宁12求出100以内最小的自然数N，使得从1开始的连续N个自然数的立方之和大于30000。SETTALKOFFCLEARS0FORN1TO100SSNN3IFS30000LOOPENDIFENDFORNSETTALKONRETURN19彭小宁11求出100以内最大的自然数N，使得从1开始的连续N个自然数的立方和小于20000。SETTALKOFFCLEARS0FORN1TO100SSN3IFS20000EXITENDIFENDFORNSETTALKONRETURN16彭小宁10求出100以内最小的自然数N，使得从1开始的连续N个自然数的平方之和大于5500。SETTALKOFFCLEARS0FORN1TO100SSNNIFS0NX1ENDIFENDFORXSETTALKONRETURN480彭小宁4求出10,1000内所有能被6和9中的一个且只有一个数整除的整数的个数。SETTALKOFFCLEARN0FORX10TO1000IFMODX,60ANDMODX,90ANDMODX,60ANDMODX,90NXENDIFENDFORNSETTALKONRETURN165彭小宁3求出10,1000内所有能被6整除但不能被9整除的整数之和。SETTALKOFFCLEARS0FORX10TO1000IFMODX,60ORMODX,90XSXENDIFENDFORSSETTALKONRETURN55440彭小宁2求出10,1000内所有能同时被7和9整除的整数之和。SETTALKOFFCLEARS0FORX10TO1000IFMODX,70ANDMODX,90SXENDIFENDFORXSETTALKONRETURN7560彭小宁1求出10,1000内所有能被7和9中至少一个数整除的整数的个数。SETTALKOFFCLEARN0FORX10TO1000IFMODX,70ANDMODX,90NNXENDIFENDFORNSETTALKONRETURN236彭小宁150梅森尼数是指能使2N1为素数的数N，求1，21范围内所有梅森尼数之和SETTALKOFFCLEASUM0S2FORX2TO21SS2FLAG1FORI2TOINTSQRTS1IFMODS,I0FLAG0EXITENDIFENDFORIFFLAG1SUMSUMSENDIFENDFORSUMRETURN66彭小宁9求出100以内最大的自然数N，使得从1开始的连续N个自然数的平方和小于5000。SETTALKOFFCLEARS0FORN1TO100SSN2IFS5000EXITENDIFENDFORNSETTALKONRETURN24彭小宁28某国在2000年时人口总数为1亿，若以每年3的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。SETTALKOFFCLEARS1FORN2001TO2100SS103IFS2LOOPENDIFENDFORNSETTALKONRETURN2024彭小宁76将小于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求最后20个数之和。SETTALKOFFCLEARK0S0X1000DOWHILEK2345678EXITENDIFA3AENDFORNSETTALKONRETURN14彭小宁31设等比数列1，2，4，8，。求使得此数列的前N项之和小于150000的最大的自然数N。SETTALKOFFCLEARA1S0FORN1TO100SSAIFS150000EXITENDIFA2AENDFORNSETTALKONRETURN17彭小宁16求出50以内最小的自然数N，使得从101开始的连续N个奇数之和大于3000。SETTALKOFFCLEARS0FORN1TO50A1012NSSAIFS3000EXITENDIFENDFORSSETTALKONRETURN25彭小宁29某国今年的人口总数为1亿，若以每年4的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。SETTALKOFFCLEARS0FORN1TO100SS104IFS2LOOPENDIFENDFORNSETTALKONRETURN18彭小宁38求出559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。SETTALKOFFCLEARA559399FORN2TOAIFMODA,N0LOOPENDIFENDFORASETTALKONRETURN73彭小宁27求出100以内使算式11/21/31/41/N1/N1的值大于0682的最小的奇数N。SETTALKOFFCLEARS0FORN1TO100A1/N1/N1SSAIFS19EXITENDIFENDFORN1SETTALKONRETURN18彭小宁22求出100以内使得算式1/121/231/NN1的值小于0952的最大的自然数N。SETTALKOFFCLEARS0FORN1TO100SS1/NN1IFS1500EXITENDIFENDFORNSETTALKONRETURN20彭小宁20求出100以内使得算式11212N的值小于1000的最大的自然数N。SETTALKOFFCLEARS0T0FORN1TO100SSNTTSIFT10000LOOPENDIFENDFORN1SETTALKONRETURN23彭小宁30设等比数列1，2，4，8，。求使得此数列的前N项之和大于100000的最小的自然数N。SETTALKOFFCLEARA1S1FORN1TO100SSAIFS100000EXITENDIFA2AENDFORNSETTALKONRETURN17彭小宁122设某四位数的各位数字的立方和等于168，问共有多少个这种四位数SETTALKOFFCLEAN0FORX1000TO9999AINTX/1000BINTXA1000/100CINTX/100DMODX,10IFAABBCCDD168NN1ENDIFENDFORNSETTALKONRETURN12彭小宁130设某四位数的各位数字的平方和等于198，问满足这种条件的最大数和最小数之和是多少SETTALKOFFCLEAMIN11000MAX11000FORX1000TO9999AINTX/1000BINTXA1000/100CINTX/100/10DMODX,10IFAABBCCDD198IFMAX10SS1ENDIFENDFORSSETTALKONRETURN124266彭小宁123设某四位数的各位数字的立方和等于168，问满足这种条件的四位数且是奇数的数共有多少个SETTALKOFFCLEAN0FORX1000TO9999AINTX/1000BINTXA1000/100CINTX/100DMODX,10IFA3B3C3168ANDD3NN1ENDIFENDFORNSETTALKONRETURN6彭小宁133把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后硬币总数为50枚的兑换方案有多少种SETTALKOFFCLEAN0FORYI1TO50FORER1TO50FORWU1TO20IFYIERWU50NN1ENDIFENDFORENDFORENDFORNSETTALKONRETURN12彭小宁121设某四位数的各位数字的平方和等于100，问共有多少个这种四位数SETTALKOFFCLEAN0FORX1000TO9999AINTX/1000BINTXA1000/100CINTX/100DMODX,10IFA2B2C2100NN1ENDIFENDFORNSETTALKONRETURN49彭小宁120编写程序，计算10065374以内个位上的数等于百位上的数的个数。SETTALKOFFCLEAN100FORI1TO65374BWMODI,1000/100GWMODI,10IFGWBWNN1ENDIFENDFORNRETURN6528彭小宁119编写程序，计算10010000以内个位上的数小于百位上的数的个数。SETTALKOFFCLEAN0FORI100TO10000BWMODI,1000GWINTI/10