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

Question

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

Под "словом" будем понимать последовательность символов, ограниченную пробелами или стоящую в конце или начале строки. Между словами может быть несколько пробелов. Так же пробелы могут быть в конце или начале строки.

Написать функцию, которая в заданной строке находит количество cлов - палиндромов.

Использовать заголовок:

function CalcWord(Stroka: string): integer;


Pascal

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

function CalcWord(Stroka: string):integer;
begin
  Result:=Stroka.ToWords.Where(w->w=w.Inverse).Count
end;

begin
  var s:='казак пошел в кабак и сделал заказ';
  Writeln('Слов-палиндромов: ',CalcWord(s))
end.

Результат
Слов-палиндромов: 5

Если однобуквенные слова не учитываются, надо изменить Where:
Where(w->(w=w.Inverse) and (w.Length>1))