2010pascal普及组初赛试题及答案

1、第十六青少年信息（Pascal（ A.P（PQ）(PQ) A. B. C.）A. 2n-1 ）A.B.C.么同样在三进制下，等式 XY * =C.A. B. 第十六青少年信息（Pascal（ A.P（PQ）(PQ) A. B. C.）A. 2n-1 ）A.B.C.么同样在三进制下，等式 XY * =C.A. B. A.9.前缀表达式“+ 3*2（）A. 23 A.闪存 A. B.C. D.A. B.O(nlog C.O(log D.10n log 2A. B.n*logC.22aaa2 then a2a3 then a1a2 then xa2 then a2a3 then a1a2 then

2、xa2 thenif if 91220,a1,x,a2,a2,a3,输出whilej0do sum:=sum*10+(jmodj:=jdiv10; fori:=ntomif then输入：90 输出fori:=1tolength(s)do if sim1 then elseifsim2输入：90 输出fori:=1tolength(s)do if sim1 then elseifsim2then 2010Shanghai = functionr(n: i eger)ifn=numthen r:=n; fori :=1 to numifr(n-i)0then ASCII输入输入 输出2输入输入

3、输出2neger;array1.size ofeger;tmp: fori:=3tondo ；for j:=1 to r ;if I mod iftmpthen fori:=2to(n forj:=1to for k:=jdiv 2) r do tordoif i+i= iftmpthen若输入 n 为 2010，则输出2.(N(2=N1000N例2若输入 n 为 2010，则输出2.(N(2=N max(a,b eger) max amax go(stage )i,j,tmp,ans (stage=RIGHT_TO_LEFT) then begin:=i:= 1 to n i=Rigntth

4、en iftimei ans := if go:=ans; := i := 1 to n 1i = RIGHT then forj:=i+1tondoj=RIGHTthen go:=ans; := i := 1 to n 1i = RIGHT then forj:=i+1tondoj=RIGHTthen tmp:= if := := ans+ans := :=:= := elseifthen(stage = ans := for i := 1 to n do if tmp:= if := ansans := go:=ans; elsego:=fori:=1tondo i:=年普及组语言）参与评分年普及组语言）参与评分123456789DAADADB DC111213141516171819DBBBB AA DC 12-2-1-2-3-1-1-3-4-3-1-2-1-3-5-3-6（或 122077299101 tmp= pr= pjpk（pk