Определить количество слов, которые начинаются и заканчиваются одинаковым символом - PascalABC.NET

Формулировка задачи:

Дано предложение, слова в нем разделяются пробелом, в конце стоит точка. Определить количество слов, которые начинаются и заканчиваются одинаковым символом.

Решение задачи: «Определить количество слов, которые начинаются и заканчиваются одинаковым символом»

Листинг программы

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.

Оцени полезность:

14 голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы