Задача : выведите кол-во слов в которых есть определённая буква. пример : ввод: а (буква)...

Question

Задача :
выведите кол-во слов в которых есть определённая буква.
пример :
ввод:
а (буква)
папа ел кашу (строка)
вывод :
2

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('Введите текст:').ToLower.ToWords;
  var c:=ReadlnChar('Введите искомую букву').ToLower;
  Writeln('Слов с этой буквой: ',a.Where(w->w.Contains(c)).Count)
end.

Пример
Введите текст: А роза упала на лапу Азора
Введите искомую букву а
Слов с этой буквой: 6