Question

Вычислить значение функции в Паскале:

Answer 1

uses math;

var

x : integer;

f : real;

begin

write('x=');

readln(x);

if x >= 13 then

   f := power(-x, 2) - 9

else if x <= 13 then

   f := -1 / (power(x, 2) + 9);

writeln(f:5:2);

end.