Дана строка содержащая любые символы кроме русских букв.
Под "словом" будем понимать последовательность символов, ограниченную пробелами или стоящую в конце или начале строки. Между словами может быть несколько пробелов. Так же пробелы могут быть в конце или начале строки.
Написать функцию, которая в заданной строке находит количество cлов - палиндромов.
Использовать заголовок Б

// PascalABC.NET

function CalcWord(Stroka: string): integer;

begin

 Result :=

     Stroka

     .ToWords

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

     .Count

end;

begin

 var s := ReadString;

 CalcWord(s).Print

end.

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -