Линия связи к которому подключена сеть​

Линии связи или линии передачи данных — это промежуточная аппаратура и физическая среда, по которой передаются информационные сигналы (данные). В одной линии связи можно образовать несколько каналов связи (виртуальных или логических каналов), например путем частотного или временного разделения каналов.

это канал связи, который соединяет два или более сообщающихся устройств. Этот канал связи может быть физическим или логическим, он может использовать один или более физических каналов связи.

Объяснение:

Задача на определение объемов информации.
Чтобы пользоваться алфавитом в 32 символа, нужно
2^i=32
i=5
Каждый символ кодировать 5 битами информации. 

При этом нам сказано, что первой буквой может быть только 1 из 4х данных букв.
Значит алфавит для 1 буквы будет состоять из 4 символов, то есть для кодировки первой буквы понадобится 2бита.
Итого, для кодировки одного слова в 8 символов, нам потребуется
2+7*5=37 бит.

Сообщение содержит 20 символов. Но одно слово содержит обязательно 8 символов.
Как трактовать это? 
Посторонних символов и никаких других нюансов нам не дано. 
Значит действуем "в лоб".

20:8 = 2,5 слова передано в сообщении.
При этом в остаточном половине слова получается только 4 буквы, 1я из которых, опять же, является одной из 4х данных. 

Значит кодировка половины слова будет состоять из 
2+3*5=17бит.

Итого, Объем сообщение составит
37+37+17= 91 бит.

1)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(80)-20;

write (a[i],' ');

s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

2)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

3)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(90)-50;
write (a[i],' ');

if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 

4)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
if odd(a[i])=true then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 

5)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(39)+2;
write (a[i],' ');
if a[i]<20 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.  

6)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(60)+5;
write (a[i],' ');
if a[i] mod 7 = 0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.  

7)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(8)+3;

write (a[i],' ');

if a[i]=8 then s:=s+a[i]

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

8)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if a[i] mod 11 = 0 then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

9)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if odd(a[i])=false then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

10)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

 14)

var
a:array [1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
end;
writeln;

writeln (''); 

for i:=1 to 15 do 

if odd(a[i])=false then write (a[i],' ');
readln;
end.

13)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(85)+21;
write (a[i],' ');
end;
writeln;

writeln('');

for i:=1 to 15 do

if a[i] mod 21 = 0 then begin

write (a[i],' ');

k:=k+1;

end;

if k=0 then writeln ('Elementov net');
readln;
end.

 12)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
end;
writeln;

writeln('');

for i:=1 to 15 do

if a[i]>15 then write (a[i],' '); 

readln;
end.

11)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(15)+1;
write (a[i],' ');
if (a[i]>2) and (a[i]<5) then p:=p*a[i];

end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.