<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>while(k&lt;3)and(kz=0) do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;</span><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>k:=k+1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if odd(nb+k)and (i-k in odda) then kz:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if (not odd(nb+k))and(i-k in evena) then kz:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if kz=0<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>then evena:=evena+[i]<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>else evenb:=evenb+[i];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>nb:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if odd(i)then nb:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>kz:=0;<spanstyle="mso-spacerun: yes">&nbsp; </span>k:=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>while(k&lt;3)and(kz=0) do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>k:=k+1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if odd(nb+k)and (i-k in odda) then kz:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if (not odd(nb+k))and(i-k in evena) then kz:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if kz=0<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>then odda:=odda+[i]<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>else oddb:=oddb+[i];<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{3}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>{ 2. </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>開始取數</span><spanlang=EN-US>. }<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>na:=0; nb:=0;<spanstyle="mso-spacerun: yes">&nbsp; </span>t:=0;<span style="mso-spacerun:yes">&nbsp; </span>ab:=' ';<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>while not (ab in ['a','b','A','B'])do<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>gotoxy(10,9);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>writeln('</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>輸入</span><span lang=EN-US>: &quot;</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>誰先開始</span><span lang=EN-US> (A/B) ?&quot;<spanstyle="mso-spacerun: yes">&nbsp;&nbsp; </span>A: </span><span style='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>計算機</span><spanlang=EN-US>,<span style="mso-spacerun: yes">&nbsp; </span>B:</span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>操作手</span><span lang=EN-US>.');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>gotoxy(10,10);<span style="mso-spacerun: yes">&nbsp; </span>readln(ab);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>i:=1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if (ab='B')or(ab='b') thenbget(r,t,nb,i);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>repeat<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>if r&gt;0 then<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>begin {5}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>aget(r,t,na);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>prt1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>if r&gt;0 then bget(r,t,nb,i);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>i:=i+1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>end;{5}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>until r=0;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>gotoxy(3,16);<spanstyle="mso-spacerun: yes">&nbsp; </span>writeln(' </span><spanstyle='font-family:宋體;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>最后結果</span><span lang=EN-US>:');<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>prt1;<span style="mso-spacerun:yes">&nbsp; </span>prt2(ll);<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;</span><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>end{2}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>end.{main}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>unit Unit1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>interface<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>uses<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>type<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>TForm1 = class(TForm)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>private<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>{ Private declarations }<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>public<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:yes">&nbsp;&nbsp;&nbsp; </span>{ Public declarations }<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>end;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>var<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><span style="mso-spacerun: yes">&nbsp;</span>Form1: TForm1;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>implementation<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>{$R *.DFM}<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US>end.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p></div></body></html>