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

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

Задать свой вопрос
1 ответ

//PascalABC.NET 3.4.2

begin

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

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

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

end.

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт