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

Действия выполняются в обратном порядке. последнее действие было "из нечетных цифр вычитается,а к четным прибавляется 1".из нечетных цифр вычли 1 и они стали четными (при вычитании единицы меняется четность), с четными все то же самое, только наоборот. значит нужно ко всем четным цифрам прибавить 1, а от нечетных отнять 1, тогда получится исходная цифра.3216 -> 2307.итак, знаем, что на предпоследнем шаге было число 2307. идем еще на шаг назад. "цифры,занимающие четные разряды (нумерация разрядов ведется справа налево начиная с нуля) циклически сдвигаются вправо,а нечетные - влево на количество позиций, равных номеру разряда". опять же, делаем наоборот. цифры на четных разрядах сдвигаем влево, а нечетные - вправо. количество позиций не меняется, только направление.2307 -> 5117пароль почты васи: 5117.традиционно 5117.семь сдвигаем вправо на 0.7 -> 7.один сдвигаем влево на 1.1 -> 0.один сдвигаем вправо на 2.1 -> 3.пять сдвигаем влево на 3.5 -> 2.получаем 2307.от нечетных цифр отнимаем 1, а к четным прибавляем.получаем 3216. что и было дано изначально.

Var   a: array [1..10000] of integer;   i,j,k,m,n: integer; begin   read(n);   for i : = 1 to n do     read(a[i]);   for i : = 1 to 3 do     begin     m : = a[i];     k : = i;     for j : = i+1 to n do         if a[j] < m then           begin           m : = a[j];           k : = j           end;     for j : = k downto i+1 do         a[j] : = a[j-1];     a[i] : = m     end;   for i : = 1 to n do   write(a[i],' ') end.

Var   a: array [1..10000] of integer;   i,j,k,m,n: integer; begin   read(n);   for i : = 1 to n do     read(a[i]);   for i : = 1 to n-1 do     begin     m : = a[i];     k : = i;     for j : = i+1 to n do         if a[j] < m then           begin           m : = a[j];           k : = j           end;     if i < > k then         begin         a[k] : = a[i];         a[i] : = m;         end;     end;   for i : = 1 to n do   write(a[i],' ');   writeln;   k : = 1;   for i : = 2 to n do     if a[i] < > a[i-1] then         k : = k + 1;   writeln(k) end.