Question

Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). В основной программе написать подпрограмму, определяющую является ли слово палиндромом.

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);

begin
  var s:=ReadlnString('>');
  Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.

Тестовое решение
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3

Answer 2

.ToWords.Where(w->IsPalindrom(w)).Count - тут три метода и каждый отделяется точкой, образуя цепочку. ToWords, Where, Count - вот они.

Answer 3

Результат работы ("выход") каждого метода слева направо передается на "вход" следующему.

Answer 4

Назначения всех методов описаны в справочной системе PascalABC.NET 3.1

Answer 5

большое спасибо)

Answer 6

Тут для "спасибо есть кнопочка))) Чтобы не писать))