Uses crt;
var i:integer;
t:real;
begin
t:=23;
for i:=1 to 20 do
t:=t+0.5;
writeln(t) ;
end.
Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.
var
x : array [1..5] of real;
i : integer;
begin for i := 1 to 5 do
if i mod 2 = 1 then
x[i] := (i+1+i-1)/2;
for i := 1 to 5 do
writeln (x[i]:3:2);
<span> end.</span>
N=2^i
N - мощность алфавита, i - количество знаков в двоичном коде