<u>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('N=');
var f,g:file of integer;
ReWrite(f,'f.bin');
Randomize;
for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
Seek(f,0);
ReWrite(g,'g.bin');
var a,b:integer;
Writeln('Содержимое файла f');
Read(f,a); Write(a,' ');
while not f.Eof do begin
Read(f,b);
Write(b,' ');
Write(g,a*b);
a:=b
end;
f.Close;
Writeln;
Writeln('Содержимое файла g');
Seek(g,0);
while not g.Eof do begin Read(g,a); Write(a,' ') end;
g.Close
end.
<em>Пример</em>
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817
1
375 байт = 375*8 бит = 3000 бит всего, значит на каждый символ приходится:
3000 / 500 бит = 6 бит
6ю битами мы может закодировать <span> различных символов.</span>
ответ. не более чем 64 2
Число символов в сообщении равно:
Значит на каждый символ приходится:
9000 / 14400 байт = 9000 * 8 / 14400 бит = 5 бит
это информационный вес каждого символа.
с помощью 5 бит можно закодировать <span> различных символов.</span>
<span>ответ. 5 бит, 32 символа так надеюсь</span>
1)1 байт=8 бит
2)22•8=176 бит
3)176:8=22 байта
Ответ: фраза Пушкин - наше всё! займёт 22 байта.
Сноук дважды соврал .
бигль один раз сказал правду а второй неправду
джоил дважды сказал правду