Question

Задано вещественные значение х. Составить программу вычисления значения функции y по формуле y=sin^2x+1

Answer 1

Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.