1) на метеостанцию поступают сообщения о двух погодных явлениях: о выпадении снега и дождя. известно, что: - сообщение о том, что выпал снег, несет 3 бита информации, - вероятность дождя в два раза меньше, чем вероятность выпадения снега. сколько информации несет сообщение о дожде? 2) на тепличного хозяйства «цветы-всем» числятся 18 теплиц, приносящих прибыль, и несколько убыточных. сообщение о том, что в одной из убыточных теплиц высадили розы, несет 2 бита информации. сколько теплиц в хозяйстве «цветы-всем»?

2не совсем понял 1) 3 /2= 1,5

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! в других версиях языка работа не гарантируется! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив a[',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4);   writeln(4*a.colcount*'-');   var k: =a.rows.select(x-> x.aggregate(0,(x,y)-> x+.indexmax;   for var j: =0 to (n-1) div 2 do swap(a[k,j],a[k,n-1-j]);   a.println(4) end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив a[4,5] ***   29  36 -50  -4 -32   -1 -10  -7 -47 -50   -16    4  48 -41 -43     8  46  45  14 -44   29  36 -50  -4 -32   -1 -10  -7 -47 -50   -16    4  48 -41 -43   -44  14  45  46    8

1. pascalabc.net // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var x: =readreal('введите число: ');   writeln((x> =0) and (x< =2)? 'да': 'нет') end. пример введите число: 1.17 да 2. на этой же версии в стиле традиционного школьного паскаля var   x: real; begin   write('введите число: '); read(x);   if (x> =0) and (x< =2) then writeln('да')   else writeln('нет') end.