Паскаль написать программу для решения . дана строка, - вопрос №648872 от gazizullinnafi 20.08.2021 01:55

Question

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

gazizullinnafi · Answer

//PascalABC.NET 3.4.2begin  var str := readstring( Введите строку: ).ToWords;  var ch := readchar( Введите букву: );  str.Where(x - Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print; end....