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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
