Добавлено (06.11.2008, 02:43)
---------------------------------------------
Seqular, помоги мне с 3 и 4 задачами!Пожалуста!

var l:array[1..2000,1..2000] of byte;

function bit(a,b:byte):byte;

begin

if(a>b) then bit:=a else bit:=b;

end;

function hek(a,b:byte):byte;

begin

if (a>b) then hek:=b else hek:=a;

end;

function hak(h,p:byte):byte;

var n,win1,q:byte;

begin

win1:=255;

for n:=p to h-1 do begin

q:=l[n,p]+l[h,n+1];

if q<win1 then win1:=q;

end;

hak:=win1;

end;

var s:string; n,m:text; v,x,y:byte;

begin

assign(n,'palindrome2.dat'); reset(n);

assign(m,'palindrome2.sol'); rewrite(m);

readln(n,s); v:=length(s);

for x:=1 to v do l[x,x]:=1;

for x:=2 to v do if(s[x]=s[x-1]) then l[x,x-1]:=1 else l[x,x-1]:=2;

for x:=3 to v do

for y:=v-x downto 0 do if(s[x+y]<>s[y+1]) then

l[x+y,y+1]:=hak(x+y,y+1)

else

l[x+y,y+1]:=hek(l[x+y-1,y+2],bit(l[x+y-1,y+1],l[x+y,y+2]));

writeln(m,l[v,1]);

close(n); close(m);

end.

Добавлено (08.11.2008, 01:18)
---------------------------------------------
ой в конце не туда записал:
[code]
var f,f1:text;
assign(f,'palindrome1.dat'); reset(f);
assign(f1,'palindrome1.sol'); rewrite(f1);
readln(f,"считиваем переменную с файл");
close(f);
writeln(f1,"записуем переменную в файл");
close(f1);
end.

Добавлено (08.11.2008, 01:18)
---------------------------------------------
ой в конце не туда записал: