шифр 3

[fnk007]

Помогите решить задачу.

Пароль от почтового ящика в виде четырехзначного числа Саша зашифровал так: цифры, занимающие четные разряды (нумерация разрядов ведется справа налево начиная с нуля), циклически сдвигаются вправо, а нечетные - влево на количество позиций, равных номеру разряда. Так, например, циклический сдвиг цифры 7 на четыре позиции вправо дает нам 1 (7-8-9-0-1). Затем из нечетных цифр вычитается, а к четным прибавляется 1. Далее оба шага повторяются еще один раз. В результате шифровки получилось число 3216. Определите пароль.

[Son Of Pain]

И что из этого ты не можешь сделать? Найти четные цифры? Сдвинуть на номер разряда? Повторить? )

[BDA]

var
  n: integer;
begin
  readln(n);
  writeln(1000 * ((-2 * (((-2 * (n div 1000 mod 2) + n div 1000 + 4) mod 10) mod 2) +
  (-2 * (n div 1000 mod 2) + n div 1000 + 4) mod 10 + 4) mod 10) + 100 * ((-2 * (((-2 * (n div 100 mod 10 mod 2) +
  n div 100 mod 10 + 9) mod 10) mod 2) + (-2 * (n div 100 mod 10 mod 2) + n div 100 mod 10 + 9) mod 10 + 9) mod 10) +
  10 * ((-2 * (((-2 * (n div 10 mod 10 mod 2) + n div 10 mod 10 + 2) mod 10) mod 2) + (-2 * (n div 10 mod 10 mod 2) +
  n div 10 mod 10 + 2) mod 10 + 2) mod 10) + (-2 * (((-2 * (n mod 10 mod 2) + n mod 10 + 11) mod 10) mod 2) +
  (-2 * (n mod 10 mod 2) + n mod 10 + 11) mod 10 + 11) mod 10);
end.

Приятного разбора
PS Надеюсь, правильно работает

[fnk007]

Какой же все таки пароль?

[BDA]

Сообщение от fnk007

Какой же все таки пароль?

Так Вам не нужно писать программу, а только сказать ответ? Ну так проделайте заданные операции "почти" в обратном порядке.