Какое минимальное число букв необходимо заменить в слове Х, с тем, чтобы оно стало перевертышем? - Pascal

Формулировка задачи:

Доброго времени суток! Крайне необходима помощь экспертов в Pascal Вот задания: 4. Какое минимальное число букв необходимо заменить в слове Х, с тем, чтобы оно стало перевертышем?   Во всех нужно написать свои ф-ции... Если возможно написать коды как можно более простым языком - буду весьма признателен! Заранее благодарю за любую помощь!

Код к задаче: «Какое минимальное число букв необходимо заменить в слове Х, с тем, чтобы оно стало перевертышем? - Pascal»

textual
function pal(t: string): integer;
var i, x: integer;
begin
  x := 0;
  for i := 1 to length(t) div 2 do
    if t[i] <> t[length(t) - i + 1]
      then inc(x);
  pal := x
end;
 
var s: string;
    k: integer;
begin
  write('Введите строку: ');
  readln(s);
  k := pal(s);
  if k = 0
    then writeln('Это палиндром.')
    else writeln('Количество букв, которые нужно заменить, чтобы получился палиндром: ', k);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.429 из 5


СДЕЛАЙТЕ РЕПОСТ