резец
Объяснение:
Дано:
i = 2 байта
I = 112 бит = 14 байт
Найти:
K
I = K * i
K = I / i
K = 14 / 2 = 7 символов (удалили из сообщения)
Т.к. при вычёркивании названия были удалены ставшие лишними запятая и пробел (2 символа), то слово состояло из
7 - 2 = 5 символов
Название одного из орудий в тексте из 5 символов (букв) - резец
I - информационный объём текстового сообщения (размер файла, содержащего сообщение)
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
1 байт = 8 бит
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
if a [i] > 0 then begin
x := x * a [i];
Inc (c);
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
резец
Объяснение:
Дано:
i = 2 байта
I = 112 бит = 14 байт
Найти:
K
I = K * i
K = I / i
K = 14 / 2 = 7 символов (удалили из сообщения)
Т.к. при вычёркивании названия были удалены ставшие лишними запятая и пробел (2 символа), то слово состояло из
7 - 2 = 5 символов
Название одного из орудий в тексте из 5 символов (букв) - резец
I = K * i
I - информационный объём текстового сообщения (размер файла, содержащего сообщение)
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
1 байт = 8 бит
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.