Определите количество информации, информационный вес символа, мощность алфовита или количество символов в сообщении заполнив таблицу: N i(Битов) K i(Битов) 32 300 4 320 7 700 512 2048 512 40 Теперь ответьте на вопросы: 1) Введите все значения N через запятую. 2) Введите все значения i через запятую. 3) Введите все значения K через запятую. 4) Введите все значения I через запятую. И один доп вопрос: 5)Два сообщения состоят из 128 символов. Первое записано с символьного алфавита, а второе – с символьного алфавита. Сравните, во сколько раз отличаются объемы данных сообщений.

впиши в интернете это по одному потом заходи в картинке и чаще всего в картинках ответ появляются 100% сама так делаю всегда

вот вот вот вот на верху

Поделить монеты таким образом: 

1-ое взвешивание: 27:3=9 По 9 монет в каждой чаше. Если они уравновесят друг друга, то оставшаяся горка из 9 монет содержит фальшивку. В противном случае, определяем какая чаша монет тяжелее и убираем остальные.

2-ое взвешивание, аналогично, делим пополам 9:3=3 По (3-3), если уровновесят друг друга, то оставшаяся кучка содержит фальщивую монету, а если нет,то определям какая чаша тяжелее

3-е взвешевание, опять же аналогично, теперь легко в чашах по (1-1) и остается одна монета, если чаши уровновесятся, то оставшаяся-фальшивая

 

Простите чуть-чуть стормозила)

var n,m,i,s1,s2:integer;
p1,p2,p:real;
a,b:array[1..10] of integer;
begin
write('n=');read(n);
write('m=');read(m);writeln;
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to m do begin
write('b[',i,']= ');
readln(b[i]);
end;writeln;
s1:=0;
for i:=1 to n do s1:=s1+a[i];
p1:=s1/n; p1:=int(p1);
writeln('Srednee arifmeticheskoe massiva A=',p1);
s2:=0;
for i:=1 to m do
s2:=s2+b[i];
p2:=s2/m;p2:=int(p2);
writeln('Srednee arifmeticheskoe massiva B=',p2);
p:=p1+p2;
if p1=p2 then write('A=B') else begin
if p1>p2 then write('A>B') else write('A<B');
end;
end.