[理学]计算机期末考试程序题库答案.docVIP

1 求出[10,1000]内所有能被7和9中至少一个数整除的整数的个数。236 set talk off clear n=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 and 改为 or n=n+x 改为: n=n+1 endif endfor ? n set talk on return 2 求出[10,1000]内所有能同时被7和9整除的整数之和。7560 set talk off clear s=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 s=x+1 改为: s=s+x endif endfor ? x 改为: ?s set talk on return 3 求出[10,1000]内所有能被6整除但不能被9整除的整数之和。 55440 set talk off clear s=0 for x=10 to 1000 if mod(x,6)=0 or mod(x,9)!=0 改为 or 为and x=s+x 改为：s=s+x endif endfor ? s set talk on return 4 求出[10,1000]内所有能被6和9中的一个且只有一个数整除的整数的个数。165 set talk off clear n=0 for x=10 to 1000 if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0 * 上式改为: if (mod(x,6)=0 and mod(x,9)!=0)or ( mod(x,6)!=0 and mod(x,9)=0) n=x 改为：n=n+1 endif endfor ? n set talk on return 5 求出[100,800]内所有既不能被5整除也不能被7的整数的个数。 480 set talk off clear n=0 for x=100 to 800 if mod(x,5)=0 and mod(x,7)0 if mod(x,5)0 and mod(x,7)0 n=x+1 改为：n=n+1 endif endfor ? n set talk on return 6 求出[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。18630 set talk off clear s=0 for x=101 to 299 if mod(x,2)=0 and not (mod(x,3)=0 or mod(x,5)=0) 改为?: if mod(x,2)=0 and mod(x,15)0 x=s+x 改为：s=s+x endif endfor ? s set talk on return exit语句 7 求出100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。18 set talk off clear s=0 for n=1 to 100 s=(s+1)/n 改为:s=s+1/n if s=3.5 loop 改为：exit endif endfor ? n-1 set talk on return 8求出100以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于3.6。 (21) set talk off clear s=0 for n=1 to 100 s=s+1/n if s3.6 loop 改为：exit endif endfor ? n-1 改为： ?n set talk on return 9 求出100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于5000。24 set talk off clear s=0 for n=1 to 100 s=s+n*2 改为：s=s+n**2 if s=5000 exit endif endfor ? n 改为：?n-1 set talk on return 10 求出100以内最小的自然数n，使得从1开始的连续n个自然数的平方之和大于5500。(25) set talk off clear s=0 for n=1 to 100 s=s+n*n if s5500 loop 改为：exit endif endfor ? s 改为：?n set talk on return 11求出100以内最大的自然数n，使得