Question

Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). В основной программе написать подпрограмму, определяющую является ли слово палиндромом.

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);

begin
  var s:=ReadlnString('>');
  Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.

Тестовое решение
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3

Answer 2

Для определения, является ли слово палиндромом, можно использовать следующую подпрограмму:

def is_palindrome(word):
    return word == word[::-1]

Эта подпрограмма принимает слово в качестве аргумента и сравнивает его с обратной версией этого слова. Если они равны, то слово является палиндромом.

Например, для слова "level" подпрограмма вернет True, так как оно читается одинаково как слева направо, так и справа налево. Для слова "hello" подпрограмма вернет False, так как оно не является палиндромом.

Пример использования подпрограммы:

word = input("Введите слово: ")
if is_palindrome(word):
    print("Слово является палиндромом.")
else:
    print("Слово не является палиндромом.")

Пользователь будет приглашен ввести слово, а затем программа определит, является ли это слово палиндромом и выведет соответствующее сообщение.

Примечание: В данном ответе использована псевдокодовая подпрограмма на языке Python. Если вам нужно конкретное решение на другом языке программирования, пожалуйста, уточните это.