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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 18. Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т. е. является ли оно палиндромом). *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-8/18 98

Подробный ответ

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

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.