// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
1. 16
2. 81
Объяснение:
1.
S = 0
Для i от 1 tдо 2 выполнить:
для j от 2 до 3 выполнить: S = S + i + j
S = 0
i = 1 j = 2 S = S + i + j = 0 + 1 + 2 = 3
S = 3
i = 1 j = 3 S = S + i + j = 3 + 1 + 3 = 7
S = 7
i = 2 j = 2 S = S + i + j = 7 + 2 + 2 = 11
S = 11
i = 2 j = 3 S = S + i + j = 11 + 2 + 3 = 16
S = 16
2.
S = 1 a = 1
для i от 1 до 3 выполнить:
S = S + i * (i + 1) * a
a = a + 2
S = 1 a = 1 i = 1
S = S + i * (i + 1) * a = 1 + 1 * (1 + 1) * 1 = 1 + 1 * 2 * 1 = 1 + 2 = 3
a = a + 2 = 1 + 2 = 3
S = 3 a = 3 i = 2
S = S + i * (i + 1) * a = 3 + 2 * (2 + 1) * 3 = 3 + 2 * 3 * 3 = 3 + 18 = 21
a = a + 2 = 3 + 2 = 5
S = 21 a = 5 i = 3
S = S + i * (i + 1) * a = 21 + 3 * (3 + 1) * 5 = 21 + 3 * 4 * 5 = 21 + 60 = 81
a = a + 2 = 5 + 2 = 7
S = 81 a = 7 i = 3