编程题及程序下发

《编程题及程序下发》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、11到1000settalkoff内既能被5整除又能被7整除的奇数之和cleari=ls=0dowhilei<=1000ifi/5=int(i/5)andi/7=int(i/7)s=s+iendifi=i+2enddosettalkon21到50所有整数平方和并输出结果cleas=0X=1dowhilex<=50s=s+x八2x=x+lenddo3求四位数的偶数中，所有各位数字之和是15的倍数的数的和settalkoffclears二0forx=1000to9999step2a二int(x/1000)b

2、=int(x%1000/100)c=int(x%100/10)d=x%10ifmod(b+c+a+d，15)=0s=s+xendifendforsettalkonreturn4求［100,999］之间所有水仙花数。”所谓“水仙花数”是指一个三位数，其各位数字的三次方之和等于该数本身，例如：153=1A3+3A3+5A3,故153是水仙花数。settalkoffclearfori=100to999a=i%10b=int（i%100/10）c=int（i/100）ifa八3+b八3+c八3=i?iendif

3、endforsettalkon5求出［10，1000］内所有能被6和9中的一个且只有一个数整除的;数的个数settalkoffclearn=0forx=10to1000ifmod（x，6）=0andmod（x，9）!=0ormod（x，6）!=0andmod（x，9）=0n=n+lendifendfor?nsettalkonreturn6从键盘输入若干个非零整数，统计偶数的个数，并求所有偶数之和，输入0退出。SETTALKOFFCLEARINPUTA=0"请输入一个整数ftTONB=0DOWHILEN<

4、>0IFMOD（N，2）=0A=A+NB二B+lENDIFINPUTENDDO”请输入一个整ItTON?A，BSETTALKON7编写从键盘上输入5个数，统计其中奇数的个数程序settalkoffa=0forj=1to5input“请输入第”+str（j，2）+”toma=a+lendifendfor?”奇数的个数是：”，acancel8计算并输出9的阶乘。jx=ln=ldowhilen<10jx=jx*nn=n+lenddo?.9!=,+’l*2*3*4*5*6*7*8*9=’+ltrim(str(j

5、x))9、从键盘任意输入一个数据，求出1到这个数内的所有整数的阶乘和。方法一：settalkoffclearinput’’pleaseinputanumber:’’tois=0t=lform=1tont=t*mendfors=s+tendfor?ssettalkon或方法二：settalkoffclearinput’’pleaseinputanumber:’’tois=0t=lforn=1toit=t*ns=s+tendfor?ssettalkon10、编程从键盘输入一个数，判断这个数是否素数SETTA

6、LKOFFCLEARINPUT”请输入一个数:’’TOxFORi=2TOx-1IFMod（x，i）=0EXITENDIFENDFIFi〉=xandx〉l?STR（X）+"是素数’’ELSE?STR(X)+”不是素数ENDIF11、统计200以内的素数的个settalkoffn=0fori二1to200flag=l*flag=l代表它是素数。flag=0代表它不是素数forj=2toi-1ifmod（i，j）=0flag二0endifendforifflag=ln=n+lendifendforsettal

7、konreturn12、求解世界上的有名的“百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡邹三，值钱一。百钱买百鸡，问鸡翁、鸡母和鸡邹各几何？写出当鸡翁为8时，鸡母有几只？clearn=0fori=lto19forj=lto32fork=1to99ifi*5+j*3+k/3=100andi+j+k=100n=n+lifi=8a=ib=jc=kendifendifendforendforendfor?n?a，b，c13、编写程序输出下面的图形（必须用FOR语句完成）氺氺氺氺SETTALKOFFCLEARF

8、OR1=4TO1STEP-1?SPAC(8-2*I)FORJ=2*I-1TO1STEP-199，，氺，，番•ENDFOR9番ENDFORSETTALKONRETURN14、输入两个任意整数，求最小公倍〔，并显示输出最小公倍settalkoffclearinput”x=”toxinputny=”toymax=xify>xmax=yendifa=maxdowhilea<=x*yifint(a/x)=a/xandint(a/y)=a/yexite