| ||||||||||
| 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