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

Объяснение кода листинга программы

  1. Введенная строка сохраняется в переменной str.
  2. Последний символ в строке удаляется с помощью метода Delete.
  3. Строка разбивается на слова с помощью метода ToWords.
  4. Создается последовательность ToWords.Where((s:String)->s[1]=s[s.Length]), которая отфильтровывает слова, начинающиеся и заканчивающиеся одинаковым символом.
  5. Метод Count используется для подсчета количества слов, удовлетворяющих условию.
  6. Результат выводится на экран с помощью метода Writeln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 4.143 из 5
Похожие ответы