OJ Board

[pascal]
var s1: string;
l1, i: integer;
ch1: char;

begin
while (not eof) do begin
readln(s1);
l1:= length(s1);

for i:=1 to l1 do begin
ch1:= s1 ;
ch1:= chr((ord(ch1)) - (ord('J')) + (ord('C')));
s1 := ch1;
end;
writeln(s1);
end;
end.
[/pascal]

:D

me too!
and I consider why it use 324KBytes for the program?
:cry:

Your PASCAL program has solved Ok the problem 458 (The Decoder)
in 3.742 seconds using as much as 324 kbytes of virtual memory.
Congratulations


the problem 458:
my pascal code run 5.1 second ,but c++ code only 0.2 seconds,why ...