Паскаль.написать программу для решения . дана - вопрос №647190 от thymbalovajulia 16.09.2022 01:50

Question

Информатика: Паскаль.написать программу для решения . дана строка, содержащая текст на языке, и некоторая буква. подсчитать, сколько слов начинается с указанной буквы.

thymbalovajulia · Answer

//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.