Решить . 1. при выборе одной карты из колоды человек получает 5 бит информации. сколько карт в колоде? 2. на складе продуктов кодируется поступивший товар по наименованию. сколько бит понадобится для кодирования 1200 наименований? 3. пользователь компьютера, хорошо владеющий навыками ввода информации с клавиатуры, может вводить в минуту 100 знаков. мощность алфавита, используемого в компьютере, равна 256. какое количество информации в байтах может ввести пользователь в компьютер за минуту? 4. космический спутник посылает 12 различных сигналов об обстановке в прилегающем космосе. для кодирования любого сигнала используется k битов. (среди различных возможных значений k выбирается минимальное). требуется принять сообщение о 25 сигналах спутника. какое количество байтов требуется для приема этого сообщения? 5. сколько символов в информационном сообщении, переданном по имеющемуся каналу связи за 3 секунды со скоростью 1 кбит/сек, если каждый символ кодируется одним байтом?

👇

Ответ:

Danich20

24.11.2020

1. 2^5=32
2. log(2)1200=11 (с округлением всегда в большую сторону)
3. кол-во информации на 1 знак = log(2)256=8 бит = 1 байт
на 100 знаков: 100*8=800 байт
4. на один сигнал log(2)12=4 бит (с округлением всегда в большую сторону);
на все сообщение 25*4=100 бит = 12,5 байт
5. 1*1024*3/8=768

4,5(49 оценок)

Открыть все ответы

Ответ:

MrDackes

24.11.2020

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ: