Напишите программу для вычисления значения функций ** паскале {nx^2-7/x^2 a<1 y=...

Question

Напишите программу для вычисления значения функций на паскале
{nx^2-7/x^2
a<1<br> y=
{ax^3+7√x
a=1
{ln(x+7√x+a)
a>1

Answer 1

Var x,y:real;
begin
writeln ('Введи х');
readln (x);
y:=7*x*x-3*x+6;
writeln ('y=',y:5:2);
end.