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

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

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

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

Пример
Введите текст: А роза свалилась на лапу Азора
Введите искомую букву а
Слов с этой буквой: 6
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт