// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
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.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш