Проверить, является ли строка палиндромом после удаления из нее всех пробелов - PascalABC.NET
Формулировка задачи:
Вводятся произвольная строка.Проверить является ли она перевертышем(палиндромом) после удаления из нее всех пробегов.
ПОМОГИТЕ ПОЖАЛУЙСТААА
Решение задачи: «Проверить, является ли строка палиндромом после удаления из нее всех пробелов»
textual
Листинг программы
begin
var s := ReadString('Введите строку для проверки').Replace(' ', '').ToLower;
writeln(ReverseString(s) = s);
end.
Объяснение кода листинга программы
- Вводится строка с помощью функции ReadString.
- Введенная строка обрабатывается функцией Replace, которая заменяет все пробелы на пустую строку.
- Полученная строка приводится к нижнему регистру с помощью функции ToLower.
- Результат сравнивается с исходной строкой, которая была введена с помощью функции ReverseString.
- Если результат равен исходной строке, то выводится сообщение
Да, строка является палиндромом. - Если результат не равен исходной строке, то выводится сообщение
Нет, строка не является палиндромом.