<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x =');
var fx: real;
// полный if
if x < -1 then fx := 2 * x + 4
else fx := x * x;
// сокращенный if
if x < -1 then fx := 2 * x + 4;
if x >= -1 then fx := x * x;
// совсем короткий вариант
fx := x < -1 ? 2 * x + 4 : x * x;
// результат
Writeln(fx)
end.
<span>Самые безопасные большие наушники (тип "circumaural", т. е. "вокруг уха"). Самые опасные - "затычки". Ушная раковина человека - своеобразный усилитель. В затычках звук идет непосредственно в ушной канал, не усиливаясь самой раковиной. От этого портится слух. А в больших наушниках ухо полностью помещается в чашку, так что они гораздо безопаснее</span>
1) 1событие, уменьшает неопредел. в 2 р.
2) 2 бита инф-и
3)8*8=64 64=2^i т.е 6
4)
5) 5 32=2^5
6) 512 2 в 9 степ
7)1 бит