计算机编程例题集.docVIP

第 PAGE \* Arabic 4 页 一队士兵，3人一排余2人，4人一排余3人，5人一排余4人，编程求这队士兵最少有多少人？（59） set?talk?off clear i=1 do?while?.t. if?mod(i,3)==2?and?mod(i,4)==3?and?mod(i,5)==4? ?i exit endif i=i+1 enddo set?talk?on *59 编程求是S＝1×3+3×5+5×7+...+999×1001的结果。（167166500） set?talk?off clear sn=0 for?i=1?to?999?step?2 sn=sn+i*(i+2) endfor ?sn set?talk?on *167166500 3、编程求出1-999之间能被5整除，且至少有一位上的数是7的所有数之和。（23855） set?talk?off clear sn=0 for?i=1?to?999 if?mod(i,5)==0?and?(mod(i,10)==7?or?mod(int(i/10),10)==7?or?int(i/100)==7) sn=sn+i endif endfor ?sn set?talk?on *23855 编程求共有几组i、j、k符合算式ijk+kji＝1333，其中i、j、k是0-9之间的一位整数。（6） set talk off clear sn=0 for i=1 to 9 for j=0 to 9 for k=1 to 9 if 100*i+10*j+k + 100*k+10*j+i = 1333 sn=sn+1 endif endfor endfor endfor ?sn set talk on 5、夫妻的年龄和为59岁，夫妻年龄的平方和为1745，用for语句编写程序求该夫妻各自的年龄？(28 31) set talk offclearfor wife=1 to 59????? ?husband=59 -?wife????? if? husband ^2+ wife^2==1745 ???? 该丈夫的年龄：,husband ? ?? ，该妻子的年龄：,wife endifendforset talk on 1从键盘输入任意一个正整数X，求sn＝1+2+3+...+X，并输出。 set talk offclearinput please enter a num: to Xsn=0i=1do while i=Xsn= sn* ii = i + 1enddo? snset talk on 2、从键盘输入任意一个正整数X，求sn＝x!，即sn＝1*2*3*...*X，并输出。 set talk offclearinput please enter a num: to Xsn=1i=1do while i=Xsn= sn* ii = i + 1enddo? snset talk on 从键盘输入任意一个正整数n，求sn＝1！+2！+3！+...+n！，并输出。 set talk offclearinput please enter a num: to nmysum=1i=1s=0do while i=nmysum = mysum * ii = i + 1s=s+mysumenddo? sset talk on 1编程序求出100到500之间同时满足除3余2和除5余3条件的数的个数。(26) set talk off clear sn=0 for i=100 to 500 if mod (i,3)==2 and mod (i,5)==3 sn=sn+1 endif endfor ?sn set talk on