Вычислить значение функции срочно надо

Question

Вычислить значение функции срочно надо

---

Comments

Какой язык программирования?

---

паскаль

Answer 1

Var x:real;
begin
    readln(x);
    if (x >= 0 and x <= 1)<br>        then write(x * (x - 1))
        else write(x * x - Sin(Pi * x * x));
end.