提高组（PASCAL 语言）参考答案与评分标准
一、单项选择题：（每题 1.5 分）
1. E 2. C 3. D 4. E 5. C 6. E 7. C 8. B 9. A 10. B
二、不定项选择题：（每题 1.5 分）由OIFans.cn收集
11. ABC 12. AB 13. C 14. BC 15. ABCD
16. AD 17. CD 18.AB 19. BD 20.（满分，空白 0 分）
三、问题求解：（每题 5 分）
1. 401 2. 9! （或 362880）
四、阅读程序写结果
1. -13，57 （对 1 个数给 4 分，无逗号扣 1 分）
2. 6 28 496 8128 33550336由OIFans.cn收集
（前 2 个对 1 个数给 1 分，后 3 个对 1 个数给 2 分）
3. 11
4. 6 2 5 4 3 7 9 9 7 3 4 5 2 6（数字之间无空格扣 2 分）
五、完善程序(前 5 空，每空 2 分，后 6 空，每空 3 分)
1．① j=k （或k=j）
② p:=1 to k
③ perm2(j+1)
④ a[j]:=a[i];a[i]:=t
⑤ perm2(1)
2．① a1[i]:=a2[i];a2[i]:=t
② kz1[i]:=1;kz2[i]:=1;
③ kz1[i]:=0;kz2[j]:=0;
④ (a1[j]=a1[i])and(kz1[j]=-1)
⑤ (a2[j]=a2[kj])and(kz2[j]=-1)IFans.cn收集
⑥ cross(a1,a2,t1,t2,n)