Сколько битов и байтов информации необходимо для кодирования фразы я пишу работу !

213

215

Посмотреть ответы 3

Ответы на вопрос:

Karneg

Информатика

4,6(100 оценок)

1мегабайт=1000 байтов. 1 байт=1000 битов.а фраза твоя состоит из 208 байтов и 208 000 битов

sadko77777

Информатика

4,5(20 оценок)

Правильный ответ 208 байтов

nightlovell15

Информатика

4,6(54 оценок)

1) var a1, a2, b1, b2, c, i, n: integer; s: array [1..100] of integer; begin read(n); for i : = 1 to n do begin s[i] : = random(100); if s[i] < 50 then begin a1 : = a1 + s[i]; a2 : = a2 + 1; end; if s[i] > = 50 then begin b1 : = b1 + s[i]; b2 : = b2 + 1; end; end; writeln(a1 / a2: 0: 3, ' ', b1 / b2: 0: 3); end. 2) var i, n: integer; f: boolean; s: array [1..100] of integer; begin read(n); for i : = 1 to n do s[i] : = random(5); f : = false; for i : = 1 to n - 1 do f : = f or (s[i] = s[i + 1]); writeln(f); end. 3) var k, t, i, n: integer; s: array [1..100] of integer; begin read(n); for i : = 1 to n do s[i] : = random(99); // println(s); k : = n div 2; for i : = 1 to k div 2 do begin t : = s[i]; s[i] : = s[k + 1 - i]; s[k + 1 - i] : = t; t : = s[i+k]; s[i+k] : = s[n + 1 - i]; s[n + 1 - i] : = t; end; // println(s); for i : = 1 to n do write(s[i], ' '); end.