湖南省VF程序设计题库答案及过程

-1-湖南省一级程序设计题库过程及答案1编程序求出1-200以内的能被7整除的数的平方和。377986cleas=0m=0fori=1to200ifi%7=0m=i^2s=s+mendifendfor?s2编程序求1~99的平方根的和并输出结果。（保留小数点两位）661.46cleas=0fori=1to99s=s+sqrt(i)endfor?round(s,2)3编程序求1~55的平方根的和并输出结果。（保留小数点两位）275.43cleas=0fori=1to55s=s+sqrt(i)endfor?round(s,2)4编程序统计1~1000能被3整除的数的个数。333cleas=0forn=1to1000ifn%3=0s=s+1endifendfor?s5编程序求出1~100所有整数的平方和并输出结果。338350cleas=0forn=1to100s=s+n^2endfor?s6编程序求出1~200所有整数的平方和并输出结果。2686700cleas=0forn=1to200s=s+n^2endfor?s7编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。550cleas=0forn=10to5000step10s=s+nifs500exitendifendfor?s8编程序求在3000以内被17或者23整除的正整数数的个数。299cleas=0forn=1to3000ifn%17=0orn%23=0s=s+1endifendfor?s9序求在1000以内被17或者23整除的正整数数的个数。99cleas=0forn=1to1000ifn%17=0orn%23=0s=s+1endif-2-endfor?s10编程序求在5000以内被17或者23整除的正整数数的个数。499cleas=0forn=1to5000ifn%17=0orn%23=0s=s+1endifendfor?s11编程序求出1-100以内的能被3整除的数的平方和。112761cleas=0forn=1to100ifn%3=0s=s+n^2endifendfor?s12已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。334745777cleadimef(36)f(1)=0f(2)=0f(3)=1s=0forn=4to36f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s13编程序求出1-100以内的能被9整除的数的平方和。40986cleas=0forn=1to100ifn%9=0s=s+n^2endifendfor?s14编程序求出1-200以内的能被3整除的数的平方和。882189cleas=0forn=1to200ifn%3=0s=s+n^2endifendfor?s15编程序求出1-7000以内能被3或者7整除数的个数。3000cleas=0forn=1to7000ifn%3=0orn%7=0s=s+1endifendfor?s16序求出1-3000以内能被3或者5整除数的个数。1400cleas=0forn=1to3000ifn%3=0orn%5=0s=s+1endifendfor?s17编程序求出1-5000以内能被3或者7整除数的个数。2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+1endifendfor?s18编程序求出1-6000以内能被3或-3-者5整除数的个数。2800cleas=0forn=1to6000ifn%3=0orn%5=0s=s+1endifendfor?s19编程序求出1-4000以内能被3或者11整除数的个数。1575cleas=0forn=1to4000ifn%3=0orn%11=0s=s+1endifendfor?s20编程序求出1-5000以内能被37整除的整数之和。339660cleas=0forn=1to5000ifn%37=0s=s+nendifEndfor?s21编程序求出1-6000以内能被23整除的整数之和。780390cleas=0forn=1to6000ifn%23=0s=s+nendifendfor?s22编程序求出1-3000以内能被33整除的整数之和。135135cleas=0forn=1to3000ifn%33=0s=s+nendifendfor?s23编程序求出1-5000以内能被15整除的整数之和。834165cleas=0forn=1to5000ifn%15=0s=s+nendifendfor?s24编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。6cleas=0forn=100to200ifn%3=2andn%5=3s=s+1endifendfor?s25编程序求出1到300之间同时满足除3余2和除5余3条件的数的个数。20cleas=0forn=1to300ifn%3=2andn%5=3s=s+1endifendfor?s26编程序求出100到500之间同时满足除3余2和除5余3条件的数的个数。26cleas=0forn=100to500ifn%3=2andn%5=3s=s+1endifendfor-4-?s27编程序求出1到400之间同时满足除3余2和除5余3条件的数的个数。27cleas=0forn=1to400ifn%3=2andn%5=3s=s+1endifendfor?s28编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。33cleas=0forn=100to600ifn%3=2andn%5=3s=s+1endifendfor?s29编程序求出1到500之间同时满足除3余2和除5余3条件的数的个数。33cleas=0forn=1to500ifn%3=2andn%5=3s=s+1endifendfor?s301编程序求出2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。510cleas=0forn=1to100s=s+2^nifs500exitendifendfor?s31编程序求出1~100所有整数的立方和并输出结果。25502500cleas=0forn=1to100s=s+n^3endfor?s32编程序求出1~110所有整数的立方和并输出结果。37271025cleas=0forn=1to110s=s+n^3endfor?s33编程序求出1~66所有整数的立方和并输出结果。4888521cleas=0forn=1to66s=s+n^3endfor?s34编程序求出1~150所有整数的立方和并输出结果。128255625cleas=0forn=1to150s=s+n^3endfor?s35编程序求出1~180所有整数的立方和并输出结果。265364100cleas=0forn=1to180s=s+n^3endfor?s36编程序求出1~200所有整数的立方和并输出结果。404010000clea-5-s=0forn=1to200s=s+n^3endfor?s37编程序求出1~210所有整数的立方和并输出结果。490844025cleas=0forn=1to210s=s+n^3endfor?s38编程序求出S=1~130所有整数的立方和并输出结果。72505225cleas=0forn=1to130s=s+n^3endfor?s39编写程序，计算1000以内有多少个这样的数，该数既能被6整除又能被8整除。41cleas=0forn=1to1000ifn%6=0andn%8=0s=s+1endifendfor?s40编程序求1~110所有整数的平方和并输出结果。449735cleas=0forn=1to110s=s+n^2endfor?s41编程序求1~120所有整数的平方和并输出结果。583220cleas=0forn=1to120s=s+n^2endfor?s42编程序求1~80所有整数的平方和并输出结果。173880cleas=0forn=1to80s=s+n^2endfor?s43编程序求1~150所有整数的平方和并输出结果。1136275cleas=0forn=1to150s=s+n^2endfor?s44编程序求1~60所有整数的平方和并输出结果。73810cleas=0forn=1to60s=s+n^2endfor?s45编程序求1~90所有整数的平方和并输出结果。247065cleas=0forn=1to90s=s+n^2endfor?s46编程序求1~108所有整数的平方和并输出结果。425754cleas=0forn=1to108s=s+n^2endfor?s-6-47编程序求1~145所有整数的平方和并输出结果。1026745cleas=0forn=1to145s=s+n^2endfor?s48编程序求1~250所有整数的平方和并输出结果。5239625cleas=0forn=1to250s=s+n^2endfor?s49编程序求1~300所有整数的平方和并输出结果。9045050cleas=0forn=1to300s=s+n^2endfor?s50编程序求出1到5000之间的能被7整除的前若干个数之和，当和大于1500时退出并输出结果。1617cleas=0forn=1to5000ifn%7=0s=s+nendififs1500exitendifendfor?s51编程序求出1到3000之间的能被3整除的前若干个数之和，当和大于600时退出并输出结果。630cleas=0forn=1to3000ifn%3=0s=s+nendififs600exitendifendfor?s52编程序求出1到2000之间的能被9整除的前若干个数之和，当和大于500时退出并输出结果。594cleas=0forn=1to2000ifn%9=0s=s+nendififs500exitendifendfor?s53编程序求出1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。660cleas=0forn=1to6000ifn%5=0andn%2=0s=s+nendififs650exitendifendfor?s54编程序求出1到7000之间的能被5整除的前若干个偶数之和，当和大于500时退出并输出结果。550cleas=0forn=1to7000ifn%5=0andn%2=0s=s+n-7-endififs500exitendifendfor?s55编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。450cleas=0forn=1to4000ifn%5=0andn%2=0s=s+nendififs400exitendifendfor?s56编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。780cleas=0forn=1to8000ifn%5=0andn%2=0s=s+nendififs750exitendifendfor?s57编程序统计1~200能被3整除的个数。66cleas=0forn=1to200ifn%3=0s=s+1endifendfor?s58编程序统计1~300能被3整除的个数。100cleas=0forn=1to300ifn%3=0s=s+1endifendfor?s59编程序统计200~400能被3整除的个数。67cleas=0forn=200to400ifn%3=0s=s+1endifendfor?s60编程序统计150~300能被3整除的个数。51cleas=0forn=150to300ifn%3=0s=s+1endifendfor?s61编程序统计150~400能被3整除的个数。84cleas=0forn=150to400ifn%3=0s=s+1endifendfor?s62编程序统计