Составить программу, вычисляющую значение функции y

Question

Составить программу, вычисляющую значение функции y

---

Answer 1

Var  x,y: real;Beginwriteln('Введите x: ');readln(x);y:=5*sqr(x)*x*sqrt(1/sqr(x)+1/sqr(x)*x);writeln('y = ',y);end.

Comments

Var x,y: real;
Begin
writeln('Введите x: ');
readln(x);
y:=5*sqr(x)*x*sqrt(1/sqr(x)+1/sqr(x)*x);
writeln('y = ',y);
end.