Помогите, юные программисты! Написать программу для решения задачи. Дана строка,...

Question

Помогите, юные программисты! Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы. Протестируйте код в Паскале и прикрепите результат в скриншоте. 45 баллов!

Answer 1

//PascalABC.NET 3.4.2

begin

 var str := readstring('Введите строку:').ToWords;

 var ch := readchar('Введите букву:');

 str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;

end.

я программисть:)