написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^2 где х...

Question

написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^2 где х -целое число

Answer 1

Uses crt;
var x,y:integer;
begin
     write('x='); readln(x);
     y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
     writeln('y=',y);
end.