50 главное решить через дано и решение 1.информационное сообщение на языке, первоначально записанное в 8-битном коде windows, было перекодировано в 16 битовую кодировку unicod. в результате информационный объем сообщения стал равен 2 мбайт. найдите количество символов в сообщении. 2 сообщение занимает 3 страницы по 40 строк, в каждой строке записано по 60 символов. информационный объем всего сообщения равен 14400 байт. сколько двоичных разрядов было использовано на кодирование одного символа? 3. сообщение, информационный объем которого равен 10 кбайт, занимает 8 страниц по 32 строки, в каждой из которых записано по 40 символов. сколько символов в алфавите, на котором записано это сообщение? 4.информационное объеме сообщение записанное в 8-битном коде кои-8, составляет 8 кбайт. сколько листов бумаги потребуется для распечатки этого текста при двухсторонней печати, если каждая страница содержит 32 строки по 40 символов в строке?

👇

Ответ:

1Радуга1

19.04.2022

1)
2 Мбайта =2*2^(23) бита ; 16=2^4;
2*2^(23) : 2^4 = 2^(20) =1048576 символов в сообщении
2)
3*40*60=7200 количество символов
14400*2^3 : 7200 = 16 бит для одного символа
3)
10 кбайт =10*2^13 бит =5*2^14 бит
8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11
(5*2^14) : (5*2^11) = 2^3 =8 бит для одного символа
2^8 =256 допустимых символов в алфавите
4)
2*32*40 =2* 2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах
8 Кбайт =8*2^13 бит =2^16 бит
2^16 :2^3 =2^13 символов в тексте
2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа

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

Открыть все ответы

Ответ:

ntaskaeva2

19.04.2022

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
 for j := 1 to m do
 begin
 writeln('a[', i, ',', j, ']: ');
 readln(a[i, j])
 end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
 for j := 1 to m1 do
 begin
 writeln('b[', i, ',', j, ']: ');
 readln(b[i, j])
 end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
 for j := 1 to m do
 c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
 writeln('Матрицы сложить нельзя')
else begin
 Sum(a, b, c);
 writeln('A+B');
 for i := 1 to n do
 begin
 for j := 1 to m do
 write(c[i, j]:1:3, ' ');
 writeln
 end
end;
readln;
end.

4,7(39 оценок)

Ответ:

MoskowCorp

19.04.2022

Вот программа : program xxx;
program xxx;   var i, k, d, e, s : integer;begin  k:=0; for i:= 10 to 99 do   begin      d:= i div 10;      e:= i mod 10;      s:=d + e;      if i mod s = 0 then k:=k+1   end;   write ('кол-во чисел которые делятся на сумму своих цифр=', k);   readlnend.
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.