if a[r]=1 then begin
i:=i-1;
a[i]:=a[i]-1; end else
a[i]:=a[i]-1 end
until ⑤ ; end.
中山市第一中学2009年初一年级第一次模拟赛
参考答案
一、 选择填空：（每题1.5分，共30分）
题号 答案 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 A B D C A B E D D A D D B D C D B B C A 二、问题解答：（每题５分，共10分） 1、从17里面拿4个 2、70
三、写运行结果（第1、2题每题7分，第3、4题每题8分，共30分）
1、14:32 3、4 2、11111010100 4、68 13 四、完善程序（每空3分，共30分）
1、 ① y[0]:=length(b); ② b[y[0]-i+1]
2、 ① a[i]+i>r ② a[i]-1 第 6 页 共 7 页
③ z[i]+y[i] ④ z[len+1]>0 ⑤ len downto 1
③ dec(i) ④ dec(a[i]) ⑤ a[1]=r-1 第 7 页 共 7 页