полное математическое решение, за спам бан Шифрование представлено следующим образом: к порядковому
номеру
каждой
буквы
прибавлялось
значение
многочлена
f(x) = x5 + 2x4 + x3 + 5x2 – 44x + 37, вычисленное либо при x1, либо при x2,
либо при x3, либо при x4, где x1, x2 – корни уравнения x
2 +2x – 5 = 0, а x3,
x4 – корни уравнения x
2 + x + 7 = 0 Затем полученное число заменялось
соответствующей ему буквой. Известно, что каждому символу русского
алфавита (33 буквы) присвоен номер: А = 1, Б = 2,…, Я = 33, пробел = 34
Расшифруйте сообщение: С П С В Ё К Б Д Б Г Е Ф Ц
n = 10;
var
a : array [1..n] of integer;
r : boolean;
i,j : integer;
begin
//Формирование массива пропущено
r := true;
While r do
begin
if a[i] mod 2 =0 then
begin
for j := n-1 downto i + 2 do
a[j] := a[j-1];
a[i+1] := 0;
r := false;
end;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)