Question

Помогите написать линейный алгоритм пж
​

Answer 1

//pascal

uses math;

var x, y : real;

begin

write('x=');

readln(x);

y := (1 + power(x, 2)) / (sqrt(2*x) + 6);

writeln(y:5:2);

end.