Решите а) сколько килобайтов составит сообщение из 384 символов 16 символьного алфавита? б) два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 32 символа, второй - мощностью 64 символа. во сколько раз различаются информационные объёмы этих текстов?

A) n=2^i=16=2^4, значит i=4 бит     v=k*i=384*4/8*1024=0,375 кб б) i1=5 бит     i2=6 бит     k1=k2     v=k*i     k=v/i     v1/i1=v2/i2     v1*i2=v2*i1     6v1=5v2     значит v1 в 1,2 раза меньше v2

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.