Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Определите является ли текст перевертышем(например как слово "шалаш")

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var s:=ReadlnString(Введите слово:).ToLower;
  if s=ReverseString(s) then Writeln(Перевертыш)
  else Writeln(Не перевертыш)
end.

Тестовое решение:
Введите слово: Шалаш
Перевертыш

Введите слово: револьвер
Не перевертыш