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

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

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.

Похожие ответы
  1. Задача выглядит вот так: На столе стоят две стопки монет. В одной стопке 8 золотых монет, а в другой 8 серебряных. Обе стопки упорядочены по убыванию масс монет. Вопрос: какое минимальное количество взвешиваний необходимо для определения 8-ой монеты. За один раз можно взвешивать только 2 монеты и выбирать какая из них тяжелее. Нужно использовать бинарный поиск. Слияния массивов применять нельзя. P.S.: Как работает бинарный поиск я знаю(ранее задачи с ним решал). Знаю как решить задачу при помощи слияния массивов(слить массивы в один, отсортировать, применить бинарный поиск), но этого делать, увы, нельзя. P.S.S.: Вижу, что есть похожие темы, но ответов на них нет. Помогите и объясните как тут поступать.

  1. Найти минимальное число монет достоинством в 50, 10, 5, и 1 копейку, необходимое для представения некоторой суммы, меньшей 1-го рубля.Добавлено через 5 минут


Нашли ошибку?
Развитие проекта
Яндекс.Метрика