Каждый месяц программист Иван обновляет пароль от компьютера и использует для этого особый шифр. Правило шифрования: 5 ⇒ 3; 3 ⇒ 1; 2 ⇒ 4; 4 ⇒ 6 и т.д. После шифрования итоге получилось слово ПАЖТХРМ. Какое слово было зашифровано?

Правило шифрования можно описать так: если буква стоит на непарном месте, то от ее номера отнимаем 2; если на парном - прибавляем 2. То есть, если буква была на парном месте - она останется на парном, если на непарном - тоже на непарном.

Рассмотрим слово ПАЖТХРМ и позиции букв: 17, 1, 8, 20, 23, 18, 14

Теперь проделаем операцию, обратную к описанной выше: от парных отнимаем 2, к непарным 2 прибавляем. Получим: 19, 3, 6, 18, 25, 16, 12.

Получится слово: СВЕРЧОК.

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7

Составляем таблицу, в которой на пересечении строки и столбца будем ставить X, если такая комбинация невозможна, и V, если мы определили профессию. У меня будет также написан номер утверждения, в соответствии с которым ставился этот значок:

Петров и Гришин никогда не держали в руках малярной кисти - значит, Петров и Гришин - не маляры.Иванов и Гришин все собираются посетить мельницу, на которой работает их товарищ - Иванов и Гришин - не мельники. Петров и Иванов живут в одном доме с почтальоном - Петров и Иванов - не почтальоны. Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром - Иванов и Сидоров - не плотники и не маляры. Петров брал билеты на футбол для себя и мельника - Петров - не мельник.У Иванова остается только вариант быть парикмахером, остальные - не парикмахеры.Петров - плотник, остальные не плотникиГришин - почтальон, остальные не почтальоныСидоров - мельник, Алексеев - не мельникАлексеев - маляр

ответ: Иванов - парикмахер, Петров - плотник, Гришин - почтальон, Сидоров - мельник, Алексеев - маляр