Работа 3.8 Упр.18 ГДЗ Семакин 10 класс (Информатика)

Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т. е. является ли оно палиндромом).

Проверим слово на палиндром: сравним символы с начала и с конца строки. Если хотя бы одна пара символов не совпадёт, слово не является палиндромом.

var
  s: string;
  i: integer;
  flag: boolean;
begin
  write(‘Введите слово: ‘);
  readln(s);
  flag := true;
  for i := 1 to length(s) div 2 do
    if s[i] <> s[length(s) — i + 1] then
    begin
      flag := false;
      break;
    end;
  if flag then write(‘Палиндром’) else write(‘Не палиндром’);
end.

Переменная flag хранит результат проверки: сначала она равна true, а при первом несовпадении символов становится false.

Ответ

Программа проверяет, является ли введённое слово палиндромом, сравнивая символы строки попарно с начала и с конца.