Определить количество слов, которые начинаются и заканчиваются одинаковым символом - PascalABC.NET
Формулировка задачи:
Дано предложение, слова в нем разделяются пробелом, в конце стоит точка. Определить количество слов, которые начинаются и заканчиваются одинаковым символом.
Решение задачи: «Определить количество слов, которые начинаются и заканчиваются одинаковым символом»
textual
Листинг программы
var str:String; begin Writeln('Введите предложение:'); Readln(str); Delete(str,Length(str),1); Writeln('Количество слов которые начинаются и заканчиваются одинаковым символом:',str.ToWords.Where((s:String)->s[1]=s[s.Length]).Count); end.
Объяснение кода листинга программы
- Введенная строка сохраняется в переменной
str
. - Последний символ в строке удаляется с помощью метода
Delete
. - Строка разбивается на слова с помощью метода
ToWords
. - Создается последовательность
ToWords.Where((s:String)->s[1]=s[s.Length])
, которая отфильтровывает слова, начинающиеся и заканчивающиеся одинаковым символом. - Метод
Count
используется для подсчета количества слов, удовлетворяющих условию. - Результат выводится на экран с помощью метода
Writeln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д