N(мощность алфв.)=4 т.к. в этих словах использованы всего 4 буквы
Решить первую задачу можно по этому примеру, просто поменяв цифры на свои ..
Решение:
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
Первый текст:
N = 16, следовательно i = 4 (16 = 24)
Второй текст:
N = 256, следовательно i = 8 (256 = 28)
Теперь нам нужно понять во сколько раз кол-во информации во втором тексте больше, чем в первом.. Это очень просто. Если в первом текст 4 бита на символ, а во втором - 8 бит на символ, также из условия известно, что количество символов одинаковое и в первом и во втором текстах. Делим 8 на 4 и получаем, что во втором тексте количество информации больше в 2 раза...
Ответ: в 2 раза
ответ получится такой же
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
Я думаю, что подойдет светло серый с оттенками красного... Наверное так