Дан текст. Посчитать количество слов, заканчивающихся ** заданную букву и перенести их в...

Question

Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран.
Написать программу на языке: Pascal;

Comments

вы в школе работаете со sting и char?

---

string*

---

Это не для школы

---

тогда ладно

Answer 1

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

begin
  var aw:=ReadlnString('Введите строку:').ToWords;
  var c:=ReadlnChar('Введите букву:');
  var s:=aw.Where(w->w.Last=c).JoinIntoString(',');
  s.Println
end.

Пример
Введите строку: Моя замечательная и вообще чудесная строка
Введите букву: я
Моя,замечательная,чудесная

Примечание: Непонятно, зачем в задании говорится о счете количества слов, если не сказано, что с этим количеством делать.