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

Ответы (1)

Кунава 03.09.2025 3

// 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

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: