2007年长沙市小学生计算机奥林匹克竞赛决赛试题.pdf

2007年长沙市小学生计算机奥林匹克竞赛决赛 试题 （时间：120分钟） （时间：120分钟） （（时时间间：：112200分分钟钟）） 一、判奇偶求和（100分）（存盘程序名：t1） 一、判奇偶求和（100分）（存盘程序名：t1） 一一、、判判奇奇偶偶求求和和（（110000分分））（（存存盘盘程程序序名名：：tt11）） 输入一个正整数n，如果n是奇数，则求1～n之间所有的偶数之和；如果n是 偶数，则求n所有的约数之和。 输入：n (在标准整型范围) 输出：和值（测试数据会保证这个值在标准整型范围） 样例1：输入：11 输出：30 样例2：输入：12 输出：28 程序： 程序： 程程序序：： programCS200701; programCS200701; pprrooggrraammCCSS220000770011;; var var vvaarr n,i,s:integer; n,i,s:integer; nn,,ii,,ss::iinntteeggeerr;; begin begin bbeeggiinn readln(n); readln(n); rreeaaddllnn((nn));; ifodd(n)thenbegin ifodd(n)thenbegin iiffoodddd((nn))tthheennbbeeggiinn s:=0; s:=0; ss::==00;; fori:=2ton fori:=2ton ffoorrii::==22ttoonn do do ddoo ifnotodd(i) thens:=s+i;{求偶数之和} ifnotodd(i) thens:=s+i;{求偶数之和} iiffnnoottoodddd((ii))tthheennss::==ss++ii;;{{求求偶偶数数之之和和}} endelsebegin endelsebegin eennddeellsseebbeeggiinn s:=0; s:=0; ss::==00;; fori:=1ton fori:=1ton ffoorrii::==11ttoonn do do ddoo ifnmod i=0thens:=s+i;{求约数之和} ifnmod i=0thens:=s+i;{求约数之和} iiffnnmmooddii==00tthheennss::==ss++ii;;{{求求约约数数之之和和}} end; end; eenndd;; writeln(s); writeln(s); wwrriitteellnn((ss));; readln; readln; rreeaaddllnn;; end. end. eenndd.. 二、13号星期几（100分）（存盘程序名：t2） 二、13号星期几（100分）（存盘程序名：t2） 二二、、1133号号星星期期几几（（110000分分））（（存存盘盘程程序序名名：：tt22）） 编程统计：从1900年1月1日(星期一）开始经过的n年当中，每个月的13号 这一天是星期一、星期二、星期三、……、星期日的次数分别是多少？ （提示：年份能被4整除而不能被100整除的是闰年；或者年份能被400整除的 是闰年。) 输入：整数n (1≤n≤400) 输出：一行 7个整数, 以空格相隔， （依次是星期一、星期二、星期三、……、星期日的次数） 样例：输入：1 输出：1 3 1 2 2 2 1 程序： 程序： 程程序序：： programCS200702; programCS200702; pprrooggrraammCCSS220000770022;; var var vvaarr n,y,r,t,xq,i,j:integer;{n:年,y:月,r:日期,t:天数,xq:星期几,i:年数} n,y,r,t,xq,i,j:integer;{n:年,y:月,r:日期,t:天数,xq:星期几,i:年数} nn,,yy,,rr,,tt,,xxqq,,ii,,jj::iinntteeggeerr;;{{nn::年年,,yy::月月,,rr::日日期期,,tt::天天数数,,xxqq::星星期期几几,,ii::年年数数}} s:array[1..7] ofinteger; s:array[1..7] ofinteger; ss::a