Ответ:
TWITTER
Объяснение:
Переводим последние 7 символов в 16-ричную форму:
1010100 = 54
1010111 = 57
1001001 = 49
1010100 = 54
1010100 = 54
1000101 = 45
1010010 = 52
Открываем таблицу ASCII (пользовался вики) и сопоставляем символы: 54 = T, 57 = W, 49 = I, 45 = E, 52 = R
P. S. Можно переводить не в 16-ричную, а сразу в десятичную, тогда будет:
1010100 = 84
1010111 = 87
1001001 = 73
1010100 = 84
1010100 = 84
1000101 = 69
1010010 = 82
и далее по Вашей таблице опять же получится TWITTER
1)i=log(1/p)
i-кол-во инф-ии
p-вероятность вытаскивания зел.шара. Всего 30+10=40 шаров
р(зел)=10/40=0,25, подставляем в формулу
<span>i=log(1/0,25)=2 бита
2)Мощность алф.=26+10=36, </span><span>i(вес 1 символа)=6, 6*5=30 бит -1номер, а это =4 байта (округляем в больш. сторону до 32, т.к. 32/8(бит в 1 байте)=4),
</span>40*4=160 байт на 40 номеров.
<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>