Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

1AC PASCAL代码

Posted by demaxiya at 2012-08-29 15:37:02 on Problem 1488
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:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator