Question

Составить алгоритм нахождения У по формуле: Y=(X+√(x-5/x)). Пользователь вводит Х, произвольный.

Answer 1

var x,y:real;
begin
readln(x);
y:=x+sqrt(x-5/x);
writeln('y=',y);
end.