Если среди чисел sin xⁿ (n=1, 2, 30) есть хотя бы одно отрицательное число, то логической переменной t присвоить значение true, а иначе - значение false.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   var x: =readreal;   var t: =seqgen(30,x,y-> y*x).select(y-> sin((y-> y< 0);   writeln(t); end. примеры 0.73 false 1.18 true

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт