Экономика
Ошибка времени выполнения: Индекс находился вне границ массива...чтто не так?
const n=30;
var i,j,p,q:integer;
c:array[1..n,1..n+1] of integer;
a:array[1..n+1] of integer;
b:array[1..n+1] of integer;
begin
readln(q,p);
For i:=1 to n do
For j:=1 to n+1 do
c[i,j]:=random(28)+1;
begin
for i:=1 to n+1 do
p:=random(28)+1;
end;
for j:=1 to n+1 do
begin
q:=random(28)+1;
end;
for i:=n downto p do// вставка p
for j:=1 to n+1 do//
c[i+1,j]:=c[i,j];//
for j:=1 to n+1 do c[p,j]:=a[i];
for j:=n+1 downto q do
for i:=1 to N+1 do
c[i,j+1]:=c[i,j];
for i:=1 to n+1 do c[i,q]:=b[i];
for i:=1 to n+1 do begin
for j:=1 to n+1 do
write(c[i,j]:2);
writeln;//
end;
end.
Ребят, помогите, а?)
Запишите алгоритм циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a–›b–›c (цикл. От "с" снова к "а").
Например, если до обмена было: а=1, b=2, c=3, то после обмена должно стать: а=3, b=1, c=2. Выполнила трассировку.
Код, в котором одинаковым символам соответствуют одинаковые коды, несложно расшифровать с помощью частотного анализа: выявить, каких букв больше всего, и поставить им в соответствие самые частые буквы алфавита. Иное дело, если буквы не перекодировали, а просто переставили в соответствии с каким-либо правилом.
В одном суперсверхсекретном учреждении применили такой способ перемешивания. Строку дополняют пробелами так, чтобы её длина была кратна натуральному числу N>=3. Все символы текста нумеруют (с 0). Выбирают натуральное M, не превышающее N-1. Далее формируют новый текст: сначала последовательно записывают все буквы, номера которых дают при делении на N остаток М, потом – М+1, М+2,… N-1, 0, 1,… M-1. К примеру, сообщение «ВЫХОДА_НЕТ.» после кодирования с N=4, M=2 превращается в «Х_.ОН_ВДЕЫАТ» (здесь пробелы заменены символами подчёркивания).
Расшифруйте сообщение
ВВ4ОАЗЬ_Т_5ЛРАИ_Р1_ОО_Ч_ЗА9О_ВИАА_.КПОЛ.
Известно, что N и M равны соответственно последним двум цифрам года смерти автора первой в истории человечества программы для вычислительной машины.
В качестве ответа введите предпоследнее слово сообщения. Регистр не важен.
