Определить количество слов, которые начинаются и заканчиваются одинаковым символом - 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.