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

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

Задать свой вопрос
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.

Руслан Егубов
программка не работает
Кирилл Флоровский
В PascalABC или PascalABC.NET?
Агафианов Игорь
Может во Free Pascal?
Мишаня Наседин
В просто авс
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт