// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
0
Объяснение:
((0 & 1) v 1) & (1 → 0)
0 & 1 = 0 - И возвращает 1 только когда оба элементы равны 1
(0 v 1) & (1 → 0)
0 v 1 = 1 - ИЛИ возвращает 1, если хотя-бы ОДИН из элементов равен 1
1 & (1 → 0)
1 → 0 = 0 ИМПЛИКАЦИЯ, всегда возвращает 1, кроме этого случая, когда 1 стремится к 0, тогда возвращает 0
1 & 0 = 0