N = 2^i
N - количество символов алфавита
i - информационный вес одного символа
N1 = 16 символа
N2 = 32 символа
16 = 2^i1
i1 = 4 бита вес 1 символа в племени Мульти
32 = 2^i2
i2 = 5 бита вес 1 символа племени Пульти
Количество символов было в сообщении одинаково, поэтому можно сравнить по весу одного символа:
5 / 4 = 1,25 раза больше информационный вес племени Пульти.
3 задание.,,,,, ,,,,,,,
ArtemKrapitski [14]
Ответ 2. Задание вроде как не школьное. А скорее всего из дискретной математики первого курса.
4096 байт = 4096*8 бит
Память для одного пикселя = 4096*8 / (128*64) = 4 бита
Количество цветов в палитре = 2^4 = 16
Uses Crt;
Label
BbIXOD, BBODN;
Var
A:array[1..19,1..19] of shortint;
i,j,N,t:integer;
Begin
Randomize;
BBODN:
Write('N = ');ReadLn(N);
ClrScr;
if (N <= 0)or(N > 19) then GOTO BBODN;
t:= 700 div N;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Delay(300);
For i:= N downto 1 do
Begin
For j:= N downto 1 do
Begin
if (j < N) then
Begin
GotoXY(j*4+1,i);
TextBackground(0);
Write(A[i,j+1]:3,' ');
GotoXY(1,N+1);
End;
TextBackground(2);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
Delay(t);
if A[i,j] mod 2 = 0 then
Begin
Delay(700);
if i <> j then
Begin
TextBackground(12);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
Delay(700);
TextBackground(14);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
Delay(700);
t:=A[i,j];
A[i,j]:=A[i,i];
A[i,i]:=t;
TextBackground(14);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
TextBackground(12);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
Delay(700);
TextBackground(0);
GotoXY(j*4-3,i);
Write(A[i,j]:3,' ');
TextBackground(2);
GotoXY(i*4-3,i);
Write(A[i,i]:3,' ');
End;
t:=-1;
GOTO BbIXOD;
End
End;
GotoXY(1,i);
TextBackground(0);
Write(A[i,j]:3,' ')
End;
BbIXOD:
TextBackground(0);
GotoXY(1,N+1);
if t >= 0 then WriteLn('Чётных элементов не обнаружено');
WriteLn('Для повторного ввода N нажмите 0');
WriteLn('Для выхода - любую другую клавишу');
if ReadKey = '0' then
Begin
ClrScr;
GOTO BBODN;
End
End.
Var a, b, c, d, R : real;
begin
Writeln ('Введите b');
Readln (b);
Writeln ('Введите c');
Readln (c);
Writeln ('Введите d');
Readln (d);
Writeln ('Введите R');
Readln (R);
a:=b*c*d/sqrt(R+1)*(2*b)-3*c*c;
Writeln ('A = ', a);
end.
