Question

Паскаль. Написать программу по формуле:

Answer 1

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 var y := 2 * (x + 3) + Sqr(3 / (1 - 4 * x));

 Println(y)

end.

Примечание. При х = 0.25 в знаменателе образуется ноль. В этом случае программа выдаст значение Infinity (бесконечность).