1. Изучить историю создания и использования шифровальных машин в России в годы ВОВ 2. Объяснить, что такое шифрование и дешифрирование 3. Шифр Цезаря – это…(объяснить), Пример 4. Шифр Вижнера – это…(объяснить), Пример 5. И на основании исследуемого материала попытаться создать свой код или шифр буду очень сильно вам благодарен!

В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure MakeFile(path:string);
// не относится к заданию, создает файл Text со 100 числами
begin
  WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString))
end;

begin
  MakeFile('MyFile1.txt');
  // теперь у нас есть текстовый файл из 100 случайных чисел
  // собственно, решение
  var n:=ReadInteger('Укажите количество чисел:');
  var a:=ReadLines('MyFile1.txt').Take(n).ToArray;
  Writeln('Исходная последовательность'); a.Println;
  Writeln('Результирующая последовательность');
  a:=a.OrderBy(x->x.Last).ToArray; a.Println;
  WriteAllLines('MyFile2.txt',a);
end.

Пример
Укажите количество чисел: 15
Исходная последовательность
51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64
Результирующая последовательность
-20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19

Двоичная система

1314 / 2 = 657 (0₁₁)

657 / 2 = 328 (1₁₀)

328 / 2 = 164 (0₉)

164 / 2 = 82 (0₈)

82 / 2 = 41 (0₇)

41 / 2 = 20 (1₆)

20 / 2 = 10 (0₅)

10 / 2 = 5 (0₄)

5 / 2 = 2 (1₃)

2 / 2 = 1₁ (0₂)

ответ

10100100010

Проверка

1¹⁰0⁹1⁸0⁷0⁶1⁵0⁴0³0²1¹0⁰₂ = 1 · 2¹⁰ + 0 · 2⁹ + 1 · 2⁸ + 0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 1024 + 0 + 256 + 0 + 0 + 32 + 0 + 0 + 0 + 2 + 0 = 1314₁₀

Восьмеричная система

1314 / 8 = 164 (2₄)

164 / 8 = 20 (4₃)

20 / 8 = 2₁ (4₂)

ответ

2442

Проверка

2³4²4¹2⁰₈ = 2 · 8³ + 4 · 8² + 4 · 8¹ + 2 · 8⁰ = 1024 + 256 + 32 + 2 = 1314₁₀

Шестнадцатеричная система

1314 / 16 = 82 (2₃)

82 / 16 = 5₁ (2₂)

ответ

522

Проверка

5²2¹2⁰₁₆ = 5 · 16² + 2 · 16¹ + 2 · 16⁰ = 1280 + 32 + 2 = 1314₁₀