Палиндромы
Какое минимальное количество символов необходимо заменить на другие в строке acccaccbaaccbaccacab, чтобы после замены строка стала палиндромом (каждый символ можно заменить ровно на 1 другой символ)? Палиндромом называется строка, которая одинаково читается как слева направо, так и справа налево. Например, abacaba — палиндром, а abc — нет.
Var s:string;
i,l,k:integer;
begin
s:=acccaccbaaccbaccacab;
l:=length(s); k:=0;
for i:=1 to l div 2 do
if s[i]<>s[l-i+1] then k:=k+1;
writeln(k=,k);
end.
Оцени ответ
