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

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


textual

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

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.

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

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



Похожие ответы
  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

  1. На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200. Составить из имеющихся в тексте четных цифр максимальное число, которое читается одинаково как слева направо, так и справа налево. Все цифры можно не использовать; незначащих нулей в числе не должно быть. Если требуемое число составить нельзя, то вывести строку «NO»; если можно, то в первой строке вывести строку «YES», а во второй — строку, изображающую найденное число.

  1. Привет! Ребята, нужна помощь, посмотрите, пожалуйста, верно ли я написал код программы к задаче. Задача: Даны натуральное число n, действительные числа a1,a2,…,an. Получить: min(A1,A3...) Код программы:

  1. Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:

  1. Большую часть задания я выполнил, осталось только это, ничего в голову не приходит, прошу помочь. Полностью задание звучит так: Разработать программу, в которой предусмотреть: - ввод размерности N одномерного массива М, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1];. Найти среднее значение элементов массива и найти элементы, имеющие минимальное и максимальное отклонение от среднего. А вот моя программа:

  1. Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов данной матрицы. Пожалуйста, помогите решить

  1. Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения. Здравствуйте помогите пожалуйста с написанием программы. Я смог написать только для одного числа а надо для трёх(пример снизу).

  1. Программа для нахождения числа (в промежутке от 1 до m включительно) с наибольшим количеством делителей. В конце выводит само число и количество его делителей.