Exit; End;
If a.len > b.len Then Begin
over := TRUE; Exit; End;
For i := a.len DownTo 1 Do Begin
If a.num[i] < b.num[i] Then Begin
over := FALSE; Exit; End;
If a.num[i] > b.num[i] Then Begin
over := TRUE; Exit; End; End;
over := FALSE; End;
Begin
Readln(s);
FillChar(target.num, SizeOf(target.num), 0); target.len := Length(s); For i := 1 To target.len Do
target.num[i] := Ord(s[target.len - i + 1]) - ⑦ ; FillChar(left.num, SizeOf(left.num), 0); left.len := 1; left.num[1] := 1; right := target; Repeat
middle := average(left, right); If over( ⑧ )
Then right := middle Else left := middle;
Until over(plustwo(left), right); For i := left.len DownTo 1 Do Write(left.num[i]); Writeln; End.
CCF NOIP2011 初赛 普及组 Pascal 13
CCF NOIP2011普及组（Pascal语言）参考答案与评分标准
一、单项选择题（共20题，每题1.5分，共计30分） 1 B 11 B 2 B 12 A 3 C 13 C 4 C 14 C 5 B 15 C 6 D 16 D 7 C 17 A 8 B 18 A 9 C 19 A 10 C 20 C 二、问题求解（共2题，每题5分，共计10分） 1．128 2．3
三、阅读程序写结果（共4题，每题8分，共计32分） 1．165
2．22366472011 3．3 4．20
四、完善程序（前11空，每空2分，后2空，每空3分，共计28分） （说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查） 1．①read(b[i][j])
②m1 - m2 + 1 ③good := true ④m2
⑤haveAns := true 2．①ans.num[i + j - 1]
②ans.num[i] := ans.num[i] mod 10; ③ans.num[i] + a.num[i] + b.num[i]; ④ans.num[i] mod 2 (或ans.num[i] and 1) ⑤inc(ans.len) （或ans.len := ans.len + 1） ⑥a.len ⑧times(middle, middle), target CCF NOIP2011 初赛 普及组 Pascal 14
