№1 переведите 500 байт = бит 5 кб= мб 87 гб= байт 7 мб = бит 46 байт = мб 700000 бит = кб №2 какой объем информации несет в себе сообщение, занимающее три страницы по 25 строк, в каждой строке по 80 символов 32-символьного алфавита? №3сообщение, записанное при 32-х символьного алфавита, содержит 80 символов, а сообщение, записанное с 64-х символьного алфавита – 70 символов. сравните объемы информации, содержащейся в этих сообщениях. №4. письмо состояло из 30 строк. в каждой строке вместе с пробелами по 48 символов. письмо содержало 900 байт информации. какова мощность алфавита (количество символов), которым было написано письмо? №5.в корзине 64 шара. сколько информации несёт сообщение о том, что достали чёрный шар? №6 алфавит состоит из 64 букв, какое количество информации несет в себе одна буква такого алфавита?

500 байт = 500*8бит=4000бит 5 кб= 5/1024  мб87 гб= 87*1024*1024*1024  байт=934155386887 мб = 7*1024*1024*8  бит =58720256 бит46 байт = 46/1024/1024мб=0,0000438690185546875700000 бит = 700000/8/1024=85,44921875  кб№232=2^i, следовательно i=5 биттогда объем информации будет равен 3*25*80*5=30000  бит=3750 байт№332=2^i   i= 5 бит;   объем 1 сообщения  5*80=400 бит64=2^i   i=6  бит;     объем 2 сообщения 6*70=420 бит№4всего в письме 30*48=1440 символов900  байт=7200 битинформационный вес одного символа 7200бит/1440сим=5 битмощность алфавита 2^5=32   символа.№564=2^i=2^6следовательно i=6 бит№6 решение аналогично №5

Const nx=30; var n,i,k,t,j,kp : integer; p,pp: real; b: array[1..nx] of integer; beginreadln(n); if n mod 2 = 0 then beginp: = n/2; k: =round(p); pp: = k/2; kp: =round(pp); for i: =1 to n do beginb[i]: =random(98)-25; write(b[i]: 3); end; writeln; for i: = k downto 1 do beginj: =j +1; t: =b[j]; b[j]: =b[i];   b[i]: =t; if i - kp =1 then break; end; writeln; j: =k; for i: = n downto k+1 do beginj: =j +1; t: =b[j]; b[j]: =b[i];   b[i]: =t; if i - (kp+k) =1 then break; end; for i: =1 to n do  write(b[i]: 3); endelsewriteln('введено  не правино'); end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! function duplicates(a,b: int64): array of char; begin   var ha: =a.tostring.tohashset;   ha.intersectwith(b.tostring.tohashset);   result: =ha.toarray end;   begin   var m,n: int64;   write('введите через пробел два натуральных числа: ');   read(m,n);   var r: =duplicates(m,n);   if r.length=0 then writeln('нет цифр, встречающихся в обоих числах')   else r.println(',') end. примеры введите через пробел два натуральных числа: 12345 6789067 нет цифр, встречающихся в обоих числах введите через пробел два натуральных числа: 1342103 6748644 4 реализация без множеств procedure ntoarray(n: int64; a: array of boolean); begin   for var i: =0 to 9 do a[i]: =false;   if n=0 then a[0]: =true   else       while n> 0 do begin           a[n mod 10]: =true;           n: =n div 10           end end; function duplicates(a,b: int64): array of boolean; begin   var ma: =new boolean[10];   var mb: =new boolean[10];   ntoarray(a,ma);   ntoarray(b,mb);   result: =new boolean[10];   for var i: =0 to 9 do       result[i]: =ma[i] and mb[i] end;   begin   var m,n: int64;   write('введите через пробел два натуральных числа: ');   read(m,n);   var r: =duplicates(m,n);   write(' цифры: ');   for var i: =0 to 9 do       if r[i] then write(i,' ');   writeln end. пример введите через пробел два натуральных числа: 12352423 98789635233 цифры: 2 3 5