4 года назад

Сообщение длиной 40960 символов занимает в памяти 55 Кбайт. Найдите мощность алфавита, который использовался при кодировании.

1 ответ:

Barkala4 года назад

0 0

55 кбайт = 56320 байт.
56320 байт = <span>450560 бит.
</span>информационная ёмкость одного знака в алфавите:
450560 / 40960 = 11 бит.

Читайте также

Помогите пожалуйстаа нужно программу на Паскале написать : Входные данные Входная строка содержит два целых числа a и b , разде

Анатолий Георгиев...

Держи, если надо больше объяснений - напиши мне:
begin
var a, b:integer; //Объявляем a и b
readln(a,b); //Считываем их
for var i := 1 to 5 do write(random(b - a) + a, ' '); //Выводим рандомные числа от a до b
writeln; //Переносим строку
end.
...
Если не сложно нажми "Спасибо" ;)

0 0

3 года назад

СРОЧНО!!!!!!!!!!!!!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по убыванию, найти количество отрицатель

sangria [119]

Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.

0 0

4 года назад

Помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученн

kasya lu

Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.

0 0

4 года назад

Ответьте пожалуйста на 5 вопросов по тесту: 1.С какой из перечисленных стран Россия имеет сухопутную границу? 1) Армения 2) Т ур

qaqlar1990

Чуваши армения респ калмыгия ставроп край курган коши

0 0

4 года назад

С клавиатуры вводится строка, содержащая фамилию и имя. Составьте программу, которая: удаляет фамилию и выводит на экран имя в в

Sirius Southeser [165]

Program anton4nk;

uses crt;

var x, y : string;

begin

clrscr;

writeln('Введите имя и фамилию.');

readln(x,y);

writeln(x);

end.

Если я правильно конечно понял задачу. Если нет, отпиши.

0 0

4 года назад