Предмет: Информатика,
автор: StRazin
Требуется написать программу на Pascal находящую все слова палиндромы в вводимом тексте исключая знаки препинания.
Ответы
Автор ответа:
0
// 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.
Пример
Текст: наган- не довод, но вес имеет
наган довод
// Внимание! Если программа не работает, обновите версию!
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Текст:').ToWords(' ','.',',',':',';','?',';','-');
s.Where(w->w=w.Inverse).Println
end.
Пример
Текст: наган- не довод, но вес имеет
наган довод
Автор ответа:
0
Вот такой он - современный Паскаль! А вы еще учитесь на древних идеях?
Похожие вопросы
Предмет: Литература,
автор: sayamuslimova20
Предмет: Химия,
автор: ehot5643
Предмет: Информатика,
автор: dashulkasmile92552
Предмет: Математика,
автор: nastyaaasha777
Предмет: Математика,
автор: reuycgyry