Program aaa; var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу writeln ('Исходная матрица:'); for i:=1 to 4 do begin for j:=1 to 4 do begin A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы write(A[i,j]:4) //вывод ячейки матрицы end; writeln; end;
//поворачиваем матрицу на 90 градусов for j:=1 to 4 do begin x:=0; for i:=4 downto 1 do begin x:=x+1; B[j,x]:=A[i,j] end end;
// выводим итоговую матрицу writeln; writeln ('Матрица, повернутая на 90 градусов:'); for i:=1 to 4 do begin for j:=1 to 4 do write(B[i,j]:4); writeln end
Мощность алфавита 64 символа - означает, что на каждый символ необходимы 6 бит информации, т.к. 2^6=64 и 250 символов будут иметь объём i = 260*6 = 1500 бит