Заметим, что каждую итерацию цикла, х увеличивается на 2 при начальном значении 0. Чтобы его значение стало равно 10, потребуется 5 итераций цикла.
Переменная р каждый раз увеличивается на а, пока не станет больше либо равна 203. Тогда произойдёт выход из цикла, поскольку условие станет False. Мы знаем, что в цикле 5 итераций. Следовательно, на 4-ой итерации условие всё ещё было True, а на 5-ой стало False, тогда:
// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
Заметим, что каждую итерацию цикла, х увеличивается на 2 при начальном значении 0. Чтобы его значение стало равно 10, потребуется 5 итераций цикла.
Переменная р каждый раз увеличивается на а, пока не станет больше либо равна 203. Тогда произойдёт выход из цикла, поскольку условие станет False. Мы знаем, что в цикле 5 итераций. Следовательно, на 4-ой итерации условие всё ещё было True, а на 5-ой стало False, тогда:
4 · a < 203.
5 · a ≥ 203.
a ≤ 50.75.
a ≥ 40.6.
Наибольшее подходящее число: 50.
ответ: 50