<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
<span>Всего 16 человек. Вероятность вызвать дамку 1:3. Значит, 2 бита (4 возможности - 1 выявлена).</span>