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

Question

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

---

Answer 1

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.

Answer 2

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

Comments

Во-первых, икс - целое число. Во-вторых, в Паскале это не скомпилируется.

---

Исправлено