Вопрос школьника по предмету Информатика
Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран.
Написать программу на языке: 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.
Пример
Введите строку: Моя замечательная и вообще чудесная строка
Введите букву: я
Моя,замечательная,чудесная
Примечание: Непонятно, зачем в задании говорится о счете количества слов, если не сказано, что с этим количеством делать.
Похожие вопросы от пользователей
ЛЕРМОНТОВ СОЗДАЕТ ОРИГИНАЛЬНЫЙ МАСШТАБНЫЙ ОБРАЗ ПЕЧЕРИНА КОТОРЫЙ ОТЛИЧАЕТСЯ ОТ ДРУГИХ ОБРЗОВ СИЛОЙ ХАРАКТЕРА МОЩНЫМ ИНТЕЛЛЕКТОМ СТРАСТНОЙ ЖАЖДОЙ ДЕЯТЕЛЬНОСТИ.
an egg / on the / there /plate / is / ?
a turtle / on / there / isn’t / farm / this / .
on the / there / a / cat / chair / is / white / .
at the / two / bikes / door / are / there / ?
Спасибо