Question

Нужна программа по этому f(x)=4cos2x sin2x-7,1x^3+√x

Answer 1

Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.