【正文】
turn6.輸出[10,100]中除以17的余數(shù)和除以5的商相等的整數(shù)的個數(shù)。$str(i)n=n+1endifnext?nreturn3.求出只要能被2,7,9之一整除的800以內的正整數(shù)的個數(shù)。典型程序設計題參考答案1.求1到2000之間,能被3或7整除,并且含有數(shù)字5的整數(shù)的個數(shù)、它們的和、它們的平方根的和(保留2位小數(shù))、以及它們的平方和。31.編寫程序,求共有幾組I、j、k符合算式ijk+kji=1333,其中I、j、k是0~9之間的一位整數(shù)。28.所謂回文數(shù)是從左至右或從右至左讀起來都是一樣的數(shù)字,如:121是一個回文數(shù)。(注意: 象3+5和5+3認為是同一對數(shù))25.已知一個數(shù)列的前三個數(shù)是1,2,3,從第四個數(shù)起,每個數(shù)都是前三個數(shù)之和。22.數(shù)列xi各元素的值是:x1=1,x2=1+2,x3=1+2+3,.....xn=1+2+3+......+n。16.編程求S=1*3+2*4+3*5+...+198*200。11.求3+9+27+81+243+...這樣的數(shù)之和. 若累加數(shù)大于500時,則結束累加.12.求1+3+5+7+9+11+..., 則結束累加。7.統(tǒng)計區(qū)間[1000,9999]內所有能被3整除,且千位數(shù)字與個位數(shù)字之和為8的整數(shù)的個數(shù)。4.求[105,625]間能同時被7和11整除的自然數(shù)之和。典型程序設計題(附參考答案)1.求1到2000之間,能被3或7整除,并且含有數(shù)字5的整數(shù)的個數(shù)、它們的和、它們的平方根的和(保留2位小數(shù))、以及它們的平方和。求[200,600]間奇數(shù)之和。8.求在四位數(shù)的奇數(shù)中,所有各位數(shù)字之和是25的倍數(shù)的數(shù)的和。13.計算S=1*5*9*13*...*k,直到累乘數(shù)k=25中止。17.設S=1+1/2+1/3+...+1/N,N為正整數(shù)。對數(shù)列求和:S=x1+x2+x3....,直到S3000止,求此時數(shù)列中最大的元素值。求出該數(shù)列的第15個數(shù)。編寫程序,求在100—900的范圍內所有能被3整除的回文數(shù)的和。32.一個數(shù)如果剛好與小于它的所有因子之和相等,則稱該數(shù)為一個“完數(shù)”,如:6=1+2+3,則6就是一個完數(shù)。clearstore 0 to n,s1,s2,s3for i=1 to 2000if (mod(i,3)=0 or i%7=0) and ?5?$str(i)n=n+1s1=s1+is2=s2+sqrt(i)s3=s3+i^2endifnext? “個數(shù):”,n,”和:”,s1,”平方根和:”,s2,”平方和:”,s3return2.求能被3整除且至少有一位數(shù)字為5的三位數(shù)的個數(shù)。clearn=0for i=1 to 800if i%3=0 or i%7=0 or i%9=0n=n+1endifnext?nreturn4.求[105,625]間能同時被7和11整除的自然數(shù)之和。clearn=0for i=10 to 100if i%17=int(i/5)n=n+1endifne