Помогите, юные программисты!
Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
Протестируйте код в Паскале и прикрепите результат в скриншоте.
45 баллов!
Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
Протестируйте код в Паскале и прикрепите результат в скриншоте.
45 баллов!
More Questions From This User See All
Answers & Comments
//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.
я программисть:)