同样无语的题目: { Author:wzx961008 Problem:UVa 272-TEX Quotes Verdict:Accepted Language:PASCAL Run Time:0.020s Submission Date:2011-01-13 16:04:30 } var s:string; i,t:longint; begin while not eof do begin readln(s); i:=0; repeat inc(i); if s[i]='"' then if t=1 then begin t:=0; delete(s,i,1); insert('''',s,i); insert('''',s,i); end else begin t:=1; delete(s,i,1); insert('`',s,i); insert('`',s,i); end until i=length(s); writeln(s); end; end.