Какое минимальное количество символов необходимо заменить на другие в строке cbaccbbbccbccacaccba, чтобы после замены строка стала палиндромом (каждый символ можно заменить ровно на 1 другой символ)? палиндромом называется строка, которая одинаково читается как слева направо, так и справа налево. например, 'abacaba' — палиндром, а 'abc' — нет.

7 символов
Выходная строка abccacaccbbccacaccba или cbaccbbbbbbccabc
Програма для паскаля.
var
s:string;
i,counter:byte;
begin
readln(s);
for i:=1 to length(s) do 
if s[i] <> s[length(s) - i + 1] then   
begin   
inc(counter);   
s[i]:= s[length(s) - i + 1];   
end;
writeln(counter);
end.  

Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович        ', '1', '2', '3', '1', '5','3', '3', '2'),                                     ('Петров Петр Петрович        ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Сидаров Сидор Сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                             ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                     ('Сергеев Сергей Сергеевич    ', '2', '2', '5', '5', '5','5', '2', '3'),                                     ('Степанов Степан Степанович  ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Давыдов Давид Давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                             var sr:real; // средний     b:real;begin  writeln('');  writeln('|            ФИО             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');  writeln('');  for var i:=0 to 6 do begin   write('|'+mas[i,0]+'|');    sr:=0;   for var j:=1 to 8 do begin    write(' '+mas[i,j]+' |');    double.TryParse(mas[i,j],b); // строку в число    sr:=sr+b;   end;   sr:=sr/8;   write(sr:5:3);   write('|');   writeln;  end;  writeln('');  end.

Program 1123;
type data = record     g: 0..3000;     mes: 1..12;     day: 1..31;     end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin               if day=32 then begin mes:=mes+1; day:=1; end;              end;
4,6,9,11: begin            if day=31 then begin mes:=mes+1; day:=1; end;          end;2: begin     if g mod 4=0 then begin                        if day=30 then begin mes:=mes+1; day:=1; end; end                 else begin                        if day=29 then begin mes:=mes+1; day:=1; end;                       end;
 end;
12: begin     if day=32 then begin g:=g+1; mes:=1; day:=1; end;    end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.