На что бы не делилась единица, ответом всегда будет единица! Если число чётное и делится без остатка, тогда операция вернёт ноль; для нечётных - будет именно единица. Если бы ответом был 0, тогда бы 1 делилась на 2. :)
// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
Если число чётное и делится без остатка, тогда операция вернёт ноль; для нечётных - будет именно единица.
Если бы ответом был 0, тогда бы 1 делилась на 2. :)