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

Question

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

Answer 1

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

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

begin

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

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

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

end.

Comments

Хорошо что на Whitespace тет не пишут программы.

---

Whitespace (с англ. — «пробел») — эзотерический язык программирования, созданный Э. Брэди и К. Моррисом. Он был выпущен в свет 1 апреля 2003 года. Существенным его отличием является то, что для управляющих конструкций используются только непечатаемые символы, а именно: пробел, перевод строки и табуляция. Интересным следствием этого факта является то, что текст программы на языке Whitespace можно «скрыть» внутри исходных кодов другой программы.

---

Чем дольше я смотрю, как здешние программисты не уважают нас - "своих коллег по цеху", вынуждая все больше извращаться при публикации ответов, вместо того чтобы как-то выправлять ситуацию, тем больше желание плюнуть на все и забросить этот ресурс.

---

Мы больше ТРЁХ ЛЕТ (!) просим как-то улучшить ситуацию, а в ответ она только все больше ухудшается. Если наши нужды администрации настолько побоку, наверно уже пришло время отвечать ей тем же.

---

Ну и не понятно к чему эти обновления.. Всё более менее устраивало.

---

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

---

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

---

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

---

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

---

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

Answer 2

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

Пусть нам дана строка 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")

}