Составьте программу вычисления значения функции y= x^2+2/7x-9 ** PascalABC

Question

Составьте программу вычисления значения функции y= x^2+2/7x-9 на PascalABC

Answer 1

program vichislenie_function;

var

 x, y: real;

begin

 writeln('Введи х');

 readln(x);

 y := x * x + 2 / (7 * x) - 9;

 writeln('y=', y:5:2);

end.