// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
F(3) = F(2) * (3 * 3 - 2) = F(2) * 7 (подставляем) = 4 * 7 = 28
F(2) = F(1) * (3 * 2 - 2) = 1 * 4 = 4
Когда нашли F(2) подставляем его в F(3)
Когда нашли F(3) подставляем его в F(4)
ответ: 280