Вводится строка(до пробела) Необходимо определить является ли она палиндромом или нет. Вывести - YES или NO

Не все. Например, до предыдущего обновления программный код можно было корректно вставлять хотя бы через FireFox. Предыдущее обновление привело к тому, что и в FireFox форматирование стало убитым, приходилось вставлять текст, обновлять экран по F5, затем вызывать "Исправить", в окне выбирать все про Ctrl+A и давать замену из буфера (тем же, что копировали прошлый раз) по Ctrl+V.

Но последнее обновление и эту уловку уничтожило. Теперь всем стало одинаково плохо. Спасибо от всей души, господа "программисты".

P.S. Я бы и еще раз мог вслух сказать, откуда у них растут руки, но администратор обижается.

Английский бизнесмен получил письмо от коллеги. Письмо гласило: "Дорогой сэр, поскольку моя секретарша - дама, я не могу продиктовать ей то, что о вас думаю. Более того, поскольку я джентльмен, я не имею права даже думать о вас так. Но, так как вы ни то, ни другое, я надеюсь, вы поймете меня правильно".

Я думаю, те, кому это адресовано. если прочтут, конечно, правильно поймут этот тонкий английский юмор.

Неизвестно, какой вам нужен язык, поэтому напишу общий алгоритм.

Пусть нам дана строка S и нам известна её длина |S|.

Двумя указателями

i = 1

j = |S|

Проходим по строке

p = true

while i < j {

if (S[i] != S[j}) {

p = false

break

}

i++

j--

}

if (p) {

print("YES")

} else {

print("NO")

}

// PascalABC.NET 3.4, сборка 1717 от 20.07.2018

// Внимание! Если программа не работает, обновите версию!

begin

var s := ReadLnstring('Введите строку').ToWords.First.ToLower;

if s = s.Inverse then Println('Палиндром')

else Println('Не палиндром')

end.