Дано: N1=32; N2=64; K1=120; K2=96;
Решение: I=K*i, N=2^i;
N1=32=2^i, i1=5 бит;
N2=64=2^i, i2=6 бит;
I1=K1*i1=120*5=600 бит - информ. объем сообщения племени М.
I2=K2*i2=96*6=576 бит - информ. объем сообщения племени П.
I1-I2=600-576=24 бит
Ответ: информационный объем сообщения племени Мульти на 24 бит больше объема сообщения племени Мульти.
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Если вам нужно составить программу, то вот:
program znanija;
var
r,d: integer;
begin
r := 2;
d := r*2;
writeln('Диаметр окружности = ',d)
end.
На вкладке Вставка, в разделе Текст есть команды форматирования надписей и текста. Если вы вставите надпись из этого блока и выделите ее, то появляется вкладка Формат с соответствующими командами.