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

Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран. Написать программу на языке: Pascal;
Гость
Ответ(ы) на вопрос:
Гость
// 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. Пример Введите строку: Моя замечательная и вообще чудесная строка Введите букву: я Моя,замечательная,чудесная Примечание: Непонятно, зачем в задании говорится о счете количества слов, если не сказано, что с этим количеством делать.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы