Question

Pascal Дано действительное число x. Вычислить f(x), если

Answer 1

var x,y: real;
begin
readln(x);
if x<=0 then y:=0
else if (x>0) and (x<=1)
then y:=x*x-x else
y:=x*x-sin(pi*x*x);
write(y);
end.