Question

(В Pascal) Дано целое положительное число x. Вычислить:

Answer 1

var x:integer;
begin
    readln(x);
    if (x>=10) and (x<=16) then
        write(1 / x + sin(x) / cos(x) )
    else if (x >= 1) and (x <= 5) then
        write(exp(x) - sqrt(x * x + x - 1) )
    else write(sqrt(exp(x) / (x + 1) ) );
end.

Answer 2

Var
   x:integer;
   y:real;
Begin
Write('x = ');
ReadLn(x);
if (9 < x)and(x < 17) then y:= 1/x + Tan(x)
else if (0 < x)and(x < 6) then y:= Exp(x) - Sqrt(x*x+x-1)
     else y:= Sqrt(Exp(x) / (x+1));
WriteLn('f(',x,') = ',y);
End.