1) ( (x ∈ P) /\ (x ∈ А)) → ( (x ∈ Q) /\ (x ∈ А)) = 1 -( (x ∈ P) /\ (x ∈ А)) \/ ( (x ∈ Q) /\ (x ∈ А)) = 1 (убрали стрелочку) -(x ∈ P) \/ -(x ∈ А) \/ ((x ∈ Q) /\ (x ∈ А)) = 1 (правило де Моргана) -(x ∈ P) \/ (-(x ∈ А) \/ (x ∈ Q)) /\ (-(x ∈ А) \/ (x ∈ А)) = 1 -(x ∈ P) \/ -(x ∈ А) \/ (x ∈ Q) = 1 x ∈ (-P U Q U -A) = 1 т.е. -P U Q U -A = (-infinity; +infinity) -P U Q = (-infinity; 39) U (58; +infinity) нужно чтоб -А покрыло оставшийся кусок [39; 58] т.е. А не должно содержать [39; 58] из предложенных это 1) [5, 20]
2) Алфавит из 18 символов, log(18)/log(2) = 4.16992500144231 {округляем до целого} ~= 5 бит на символ Вес номера байт = 5бит * 6 / 8 = 3.75 байт {округляем до целого} ~= 4 байт 400 * 4 байт = 1600 байт
3) Комбинаторика - Размещение с повторениями n - кол-во элементов в наборе (у нас 4) k - кол-во мест (у нас 5 и 6) Количество размещений с повторениями = `A(k,n) = n^k `A(5, 4) + `A(6, 4) = 4^5 + 4^6 = 5 120
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию! const R=8.314; begin Writeln('Расчет параметров газового состояния'); Writeln('Введите обозначение величины, которую хотите найти:'); Writeln('p - давление, m- масса газа, V - объем массы газа,'); Writeln('T- термодинамическую температуру, иное - ОТКАЗ'); var c:=ReadlnChar; if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!') else begin var M1,p,V,m,T:real; M1:=ReadReal('Введите массу одного моля газа (кг/моль):'); case c of 'p','P':begin m:=ReadReal('Введите массу газа (кг):'); V:=ReadReal('Введите объем массы газа (м3):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па') end; 'm','M':begin p:=ReadReal('Введите давление газа p (Па):'); V:=ReadReal('Введите объем массы газа (м3):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг') end; 'V','v':begin p:=ReadReal('Введите давление газа p (Па):'); m:=ReadReal('Введите массу газа (кг):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3') end; 'T','t':begin p:=ReadReal('Введите давление газа p (Па):'); m:=ReadReal('Введите массу газа (кг):'); V:=ReadReal('Введите объем массы газа (м3):'); Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K') end end end end.
Пример Расчет параметров газового состояния Введите обозначение величины, которую хотите найти: p - давление, m- масса газа, V - объем массы газа, T- термодинамическую температуру, иное - ОТКАЗ m Введите массу одного моля газа (кг/моль): 28e-3 Введите давление газа p (Па): 96360 Введите объем массы газа (м3): 2e-3 Введите термодинамическую температуру (К); 298 Масса газа m составляет 0.00218 кг
