Исполнитель "вычеслитель" умеет выполнять только две команды : умножить на 2 и прибавлять 1. придумайте для него наиболее короткий план получения из 0 числа 50
// 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) o+1=1; 2) 1 * 2= 2; 3) 2 + 1 = 3; 4) 3 * 2 =6; 5) 6 * 2 = 12; 5) 12 * 2 = 24; 7) 24 + 1 = 25; 8) 25 * 2 = 50.