1.информационное сообщение объемом 1,5 кбайта содержит 3072 .сколько символов содержит алфавит,при которого записано это сообщение зад 2. книга,набранная с компьютера,содержит 150 стр на каждый стр -40 стр ,в каждой строке- 60 символов. каков объем информации в книге? зад 3 . сообщение занимает 2 стр и содержит 1/16 кбайта информации. на каждой стр записано 256 символов.какова мощность использованного алфавита?

1) 1,5 кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 бит12288/3072 = 4 бита - на один символ значит n=2^4 = 16 символов в алфавите.2)  1 символ = 8 бит = 1 байт 150*40*60=360000 (символов/байт)  это ответ и есть, но можно для удобства перевести в килобайты 1 килобайт = 1024 байт 360000/1024=351,5625 ответ: 360000 байт или 351,5625 килобайт3)  посмотрим сколько же всего символом на двух страницах: 256*2 = 512 сиволов.теперь посмотрим сколько байт они занимают: 1 килобайт (по старым нормам) = 1024 байта (по новым уже нет : ( )1024/16 = 64 байта. в одном байте 8 бит,  значит 64 байта это  64*8 = 512 бит информации.разделим: 512/512 = 1 бит информации на символ.  мощность алфавита = 2 в степени количества информации на символ, то есть 2 в первой, или просто 2. ответ: мощность алфавита равна двум.

1) var n,i,p: longint; a: array[1..100]of longint; begin read(n); p: =1; for i: =1 to n do read(a[i]); for i: =1 to n do if a[i] mod 3=0 then p: =p*a[i]; writeln(p); end.2)var n,i,s,p: longint; a: array[1..100]of longint; beginread(n); p: =1; s: =0; for i: =1 to n doread(a[i]); for i: =1 to n doif a[i]> 0 then s: =s+a[i]; for i: =1 to n doif a[i]< 0 then p: =p*a[i]; if p> s then writeln('proizvedenie')else if p< s then writeln('summa')else writeln('ravni');   end.3)var n,f,i,o: longint; a: array[1..100]of longint; beginread(n); f: =0; for i: =1 to n doread(a[i]); for i: =n downto 1 do beginif a[i]< 0 then f: =f+1; if f=2 then begin o: =a[i]; break; end; end; writeln(o); end.