编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 07：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 10：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 11：答案错误...程序输出比正确答案长

├ 测试数据 12：答案错误...程序输出比正确答案长

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 16：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 17：运行时错误...| 错误号: 216 | 存取非法

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：59 有效耗时：0ms

var

a,b:array[1..5000]of integer;

c:array[0..100,0..100]of byte;

n,i,j,s:integer;

r:char;

begin

readln(n);

for i:=1 to n do

begin

read(r);

a[i]:=ord(r);

end;

for i:=1 to n do

b[i]:=a[n-i+1];

fillchar(c,sizeof(c),0);

for i:=1 to n do

for j:=1 to n do

begin

if a[i]=b[j]

then c:=c+1;

if c