Question

Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу обработки данной строки, выводящую через запятую: слова, которые начинаются и заканчиваются одной и той же буквой и содержат хотя бы одну введенную с клавиатуры букву.

Answer 1

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

begin
  var s:=ReadlnString('Введите текст: ');
  var c:=ReadlnChar('Введите искомый символ:');
  s.ToWords.Where(w->(w.First=w.Last) and (c in w)).Println(', ');
end.

Примеры
Введите текст:  мой дед носил наган и любил нарзан
Введите искомый символ: а
наган, нарзан

Введите текст:  мой дед носил наган и любил нарзан
Введите искомый символ: и
и, любил