Джентльмен пригласил даму в гости, но вместо кода цифрового замка своего подъезда отправил ей такое сообщение: «В последовательности 52186 все четные цифры нужно разделить на 2, а из нечетных вычесть 1. Затем удалить из полученной последовательности первую и последнюю цифры». Определите код цифрового замка.
1) 104
2) 107
3) 218
4) 401
Выполняем деление чётных цифр:
2 / 2 = 1,
8 / 2 = 4,
6/ 2 = 3,
Выполняем вычитание из исходных нечётных цифр:
5 - 1 = 4,
1 - 1 = 0.
Новое число 41043. Убираем крайние цифры и получаем 104.
Правильный ответ указан под номером 1.
Приведём решение Сергея Донец на языке PascalABC.NET.
uses School;
function dam(self:integer):integer;extensionmethod;
begin
if self.IsOdd
then Result:=self-1
else Result:=self div 2
end;
begin
var n := 52186;
n.Digits.Select(x->x.dam).ToArray[1:^1].JoinToString('').print;
end.

