Таблица 1
Из 48 получили 12 : 4+8=12
1991= 9+1+9+1 =20 и так же с остальными числами в таблице 1
Таблица 2
Цифра один справа означает скольки значное число . То есть оно однозначное , 2 двухзначное
С таблицей 3 я не смогу помочь (
<span>Информационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?<span> <span>Дано:Объем сообщения = 300 бит
текст состоит из 100 символов
Какова мощность алфавита?</span></span>Решение:1. Определим вес одного символа: 300 / 100 = 3 бита.2. Мощность алфавита определяем по формуле: 2 3 = 8.</span>
Const n=10;
var a:array[1..n+1] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
a[1]:=random(51);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(51);
write(a[i],' ');
end;
writeln;
write('b = ');
readln(b);
j:=1;
while (j<=n)and(a[j]<b) do j:=j+1;
for i:=n downto j do a[i+1]:=a[i];
a[j]:=b;
for i:=1 to n+1 do write(a[i],' ');
end.
Пример:
Исходный массив:
3 21 47 74 104 134 146 177 184 222
b = 120
3 21 47 74 104 120 134 146 177 184 222
Program arr;
Const n=3;
var i, j, tmp, k, z:integer;
c:boolean;
a:array [1..n,1..n] of integer;
begin
c:=false;
for i:=1 to n do
for j:=1 to n do
read(a[i][j]);
for i:=1 to n do
for j:=1 to n do
begin
tmp:=a[i][j];
for k:=i+1 to n do
for z:=j+1 to n do
if tmp = a[k][z] then
c:=true;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i][j], ' ');
writeln;
end;
if c = true then
writeln('В данном массиве есть равные друг другу элементы')
else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');
end.
1) 16×32×40=20480 символов всего
20480×16 бит = 327680 бит ÷8 = 40960 Байт ÷1024 = 40 Кб
Ответ: объем статьи = 40 Кбайт
2) 48 Кб ×1024 = 49152 Байт ×8 = 393216 бит - объем статьи в битах
по аналогии с №1 считаем в <span>кодировке Unicode (16 бит на один символ):
</span>393216 = 64×38×х×16 = 38912х
х = 393216÷38912 = 10,1052631578 ≈ 10,1 страниц