Напишите ** языке паскаль программу вычисления y по формуле: y=(9+x^2-7x)^2

Question

Напишите на языке паскаль программу вычисления y по формуле: y=(9+x^2-7x)^2

Answer 1

Program RLN;var x, y: real;beginwrite ('x=');read (x);y:=(9+x*x-7*x)*(9+x*x-7*x);write ('y=');write (y);end.

Только тут формула немного по-другому записана. Но результаты те же будут.

Comments

program RLN;var x, y: real;beginwrite ('x=');read (x);y:=(9+x*x-7*x)*(9+x*x-7*x);write ('y=');write (y);end.

---

program RLN;
var x, y: real;
begin
write ('x=');
read (x);
y:=(9+x*x-7*x)*(9+x*x-7*x);
write ('y=');
write (y);
end.