Следовательно для кодирования 1 символа используется 5 бит в слове 6 символов, поэтому сообщение несет 6*5=30 бит
Boyaris
25.11.2022
Uses crt; var n: integer; begin repeat textcolor(15); write('n='); read(n); if n=0 then begin textcolor(lightgreen); writeln('работа завершена'); textcolor(15); end else if (n> 9) and (n< 100) then begin n: =n-10; writeln('результат: ',n) end else if (n> 99) and (n< 1000) then begin n: =n-100; writeln('результат: ',n) end else begin textcolor(lightred); writeln('недопустимое значение'); end; until n=0; readkey { для pascalabc.net можно удалить эту строку } end.
korotaeva778898
25.11.2022
Function isprime(num : integer): boolean; begin result : = true; for var i : = 2 to num div 2 do if num mod i = 0 then begin result : = false; break end; end; begin var arr : = new integer[30]; var (n, i) : = (2, 0); while (i < 30) do begin if isprime(n) then begin arr[ i ] : = n; i+=1; end; n+=1; end; arr.println; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько бит информации несёт сообщение , если для его кодирование используется алфавит(32 символа)