Online Judge | Problem Set | Authors | Online Contests | User | ||||||
---|---|---|---|---|---|---|---|---|---|---|
Web Board Home Page F.A.Qs Statistical Charts | Current Contest Past Contests Scheduled Contests Award Contest |
1AC PASCAL代码var s:string; i,j,k:integer; begin k:=0; while not eof do begin readln(s); j:=length(s); for i:=1 to j do if s[i]='"' then begin inc(k);if odd(k) then write('``') else write(chr(39),chr(39)); end else write(s[i]); writeln; end; end. Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator