Дан список М предметов. Выбрать предметы, начинающиеся ** «му» и заканчивающиеся ** «а».

0 голосов
83 просмотров

Дан список М предметов. Выбрать предметы, начинающиеся на «му» и заканчивающиеся на «а».


Информатика (12 баллов) | 83 просмотров
Дан 1 ответ
0 голосов

// PascalABC.NET 3.6

begin

 var m := ReadlnInteger('M =');

 var L := ReadString('Введите слова через пробел:').ToWords.ToList;

 if L.Count <> m then

   Print('Число предметов не равно', m)

 else

   L.Where(w -> (w[:3] = 'му') and (w.Last = 'а')).Print

end.

(1.6k баллов)