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