Дана строка содержащая любые символы кроме русских букв. Под "словом" будем понимать...

Question

Дана строка содержащая любые символы кроме русских букв. Под "словом" будем понимать последовательность символов, ограниченную пробелами или стоящую в конце или начале строки. Между словами может быть несколько пробелов. Так же пробелы могут быть в конце или начале строки. Написать функцию, которая в заданной строке находит количество cлов - палиндромов. Использовать заголовок: function CalcWord(Stroka: string): integer; PascalABC ПОМОГИТЕ ПОЖАЛУЙСТА 11 Б

Answer 1

// PascalABC.NET

function CalcWord(Stroka: string): integer;

begin

 Result :=

     Stroka

     .ToWords

     .Where(Слово -> Слово = Слово.Inverse)

     .Count

end;

begin

 var s := ReadString;

 CalcWord(s).Print

end.

Comments

Русские буквы тоже можно...