Требуется написать программу на pascal находящую - вопрос №6946782 от помидор2324 21.10.2020 02:00

Question

Информатика: Требуется написать программу на pascal находящую все слова палиндромы в вводимом тексте исключая знаки препинания.

помидор2324 · Answer

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('Текст:').ToWords(' ','.',',',':',';','?',';','-');
s.Where(w->w=w.Inverse).Println
end.

Пример
Текст: наган- не довод, но вес имеет
наган довод