题目能够水成这样: { Author:wzx961008 Problem:UVa 11727-Cost Cutting Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-02-11 09:39:13 } var n,i,a,b,c:longint; begin readln(n); for i:=1 to n do begin readln(a,b,c); if ((a>=b)and(a<=c))or((a>=c)and(a<=b)) then begin writeln('Case ',i,': ',a); continue end; if ((b>=a)and(b<=c))or((b>=c)and(b<=a)) then begin writeln('Case ',i,': ',b); continue end; if ((c>=a)and(c<=b))or((c>=b)and(c<=a)) then begin writeln('Case ',i,': ',c); continue end; end; end.