记录编号	5679	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	打不死的羊	是否通过	通过
代码语言	Pascal	运行时间	5.395 s
提交时间	2008-10-27 21:08:26	内存使用	47.82 MiB

program palin;
Type
fxz1=array[0..5000,0..5000] of integer;
fxz2=array[1..5000] of char;
var
f1,f2:text;
n,i,j:longint;
s1,s2:fxz2;
a:fxz1;
begin
assign(f1,'palin.in');
assign(f2,'palin.out');
reset(f1);rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
read(f1,s1[i]);
s2[n-i+1]:=s1[i];
end;
for i:=0 to n do
for j:=0 to n do
a[i,j]:=0;
for i:=1 to n do
for j:=1 to n do
begin
if s1[i]=s2[j] then a[i,j]:=a[i-1,j-1]+1;
if a[i-1,j]>a[i,j] then a[i,j]:=a[i-1,j];
if a[i,j-1]>a[i,j] then a[i,j]:=a[i,j-1];
end;
writeln(f2,n-a[n,n]);
close(f1);close(f2);
end.