задача1
запишем условие: I=357 байт , К=500, N=?, i=?
решение: выразим информационный объем сообщения в битах
I=357*8=2856 бит
найдем вес одного символа i=I/K=2856/500=5.712 бит
по таблице нецелых степеней числа 2 найдем мощность алфавита -52
задача2
запишем условие: N=64, страниц=3, строк=40, символов=60, I=?
решение: найдем общее количество символов во всем тексте
К=3*40*60=7200
вычислим вес одного символа алфавита: N=2^i, 64=2^i, 2^6=2^i, i=6 бит
вычислим информационный объем текста: I=K*i=7200*6=43200 бит=5400 байт
uses crt;
var X:array [1..8,1..7] of integer; i,j,a,b:integer;
begin
clrscr;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to 8 do
for j:=1 to 7 do X[i,j]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to 8 do
begin
for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
for i:=1 to 8 do
for j:=1 to 3 do X[i,j]:=sqr(X[i,j]);
writeln;
writeln('Рeзультат:');
for i:=1 to 8 do begin for j:=1 to 7 do write(X[i,j]:5);
writeln;
end;
readkey;
end.