记录编号	3750	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	francis	是否通过	通过
代码语言	Pascal	运行时间	1.604 s
提交时间	2008-10-10 13:24:38	内存使用	0.17 MiB

program p1327;
const
fin='palin.in';
fou='palin.out';
max1=5000;
var
a:array[0..2,1..max1]of longint;
s:array[1..max1]of char;
p1,p2,p3,min,n,i,j:longint;
f1,f2:text;

procedure init;
begin
assign(f1,fin);
assign(f2,fou);
reset(f1); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,s[i]);
for i:=1 to n do
begin
 a[0,i]:=0; a[1,i]:=0;
end;
p1:=-1; p2:=0; p3:=1;
end;

begin
init;
for i:=2 to n do
begin
 inc(p1); if p1>2 then p1:=0;
 inc(p2); if p2>2 then p2:=0;
 inc(p3); if p3>2 then p3:=0;
 for j:=1 to (n-i+1) do
 begin
 if s[j]=s[j+i-1]  then a[p3,j]:=a[p1,j+1];
 if s[j]<>s[j+i-1] then if a[p2,j]<a[p2,j+1] then a[p3,j]:=a[p2,j]+1
                                             else a[p3,j]:=a[p2,j+1]+1;
 end;
end;
min:=a[p3,1];
write(f2,min);
close(f1); close(f2);
end.