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

Lop1234kop Lop1234kop    1   23.05.2019 20:03    2

Ответы
misha20042 misha20042  19.06.2020 15:48

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

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика