1. 46 бит
2. 256 символов
Объяснение:
I = K * i
I - информационный объём текстового сообщения
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
N = 2^i
N - мощность алфавита (количество символов в алфавите)
i - информационный вес одного символа (число бит, используемых для записи одного символа)
1.
Дано:
N = 512 символов
K = 37 символов
Найти:
I
512 = 2^i
512 = 2⁹
i = 9 бит
I = 37 * 9 = 46 бит = 5,75 байт
2.
Дано:
I = 2 Кбайт = 16 384 бит
K = 2 048 символов
Найти:
N
I = K * i
i = I / K
i = 16 384 / 2 048 = 8 бит
N = 2⁸ = 256 символов
1 байт = 8 бит
1 Кбайт = 1 024 байт
код программы:
program Boat;
var A: integer;
var B: integer;
var C: integer;
var D: integer;
var E: integer;
var F: integer;
var diff_1D: integer;
var diff_2D: integer;
var diff_3D: integer;
var max: integer;
var max_ident: integer;
begin
writeln();
writeln('1 день. Со скольки до скольки часов? (через пробел):');
readln(A, B);
diff_1D := B - A;
writeln('2 день. Со скольки до скольки часов? (через пробел):');
readln(C, D);
diff_2D := D - C;
writeln('3 день. Со скольки до скольки часов? (через пробел):');
readln(E, F);
diff_3D := F - E;
if diff_1D > diff_2D then begin
max := diff_1D;
max_ident := 1
end
else begin
max := diff_2D;
max_ident := 2
end;
if max < diff_3D then begin
max := diff_3D;
max_ident := 3
end;
writeln('максимальное время на лодке: ', max, ' часов');
writeln('максимальное время прибывания было на ', max_ident, ' день');
end.
var
SourceStr,ReplacedStr:string;
MaxDigit:char;
PosMax,i:integer;
begin
Str(Source,SourceStr);
Str(Replaced,ReplacedStr);
MaxDigit:=' ';
for i:=1 to Length(SourceStr) do
if SourceStr[i]>MaxDigit then MaxDigit:=SourceStr[i];
for i:=Length(SourceStr) downto 1 do
if SourceStr[i]=MaxDigit then begin
Delete(SourceStr,i,1);
Insert(ReplacedStr,SourceStr,i)
end;
Result:=SourceStr
end;
var
n,c:integer;
r:string;
begin
Write('Введите исходное число: '); Readln(n);
Writeln('Введите число для замены: '); Readln(c);
DigitReplace(n,c,r);
Writeln('Результат: ',r);
end.