伟大的战钟哥 @ 2015-09-20 14:28:11
var
s:string;
ch:array[1..100] of char;
k,i,l,n:integer;
x,y:array[1..100] of integer;
begin
readln(n);
readln(s);
for i:=1 to length(s) do begin
ch[i]:=s[i];
x[i]:=ord(ch[i]);
if x[i]+n<=122 then x[i]:=x[i]+n;
if x[i]+n >122 then x[i]:=x[i]+n-26;
ch[i]:=chr(x[i]);
end;
for i:=1 to length(s) do write(ch[i]);
end. 评测结果 Result 测试点 #1：通过该测试点。 得分20，耗时0ms，内存3092kB。
测试点 #2：通过该测试点。 得分20，耗时0ms，内存3129kB。
测试点 #3：通过该测试点。 得分20，耗时0ms，内存3096kB。
测试点 #4：错误的答案。 得分0，耗时0ms，内存3092kB。
该行正确答案长度：6 你的答案长度：6
你是在整个测试点输出的 0% 地方开始出错的。
这一行你是在第 1 个字符开始与标准输出不同的。
测试点 #5：通过该测试点。 得分20，耗时0ms，内存3096kB。
求指教
by 784452232zcn30 @ 2015-10-11 20:46:25
我是第二点
by 我是我 @ 2015-11-16 16:17:40
var
s:string;
i,n,x:longint;
begin
readln(n);
readln(S);
x:=26;
for i:=1 to length(s) do
begin
if ord(s[i])+n<ord('a')+26 then
write(chr(ord(s[i])+n))
else write(chr((ord(s[i])+n-ord('a')) mod x+ord('a')));
end;
end.