Question

составить программу вычисления значения выражения

Answer 1

Задача №1.
Надо учесть, что при x = -1 будет ошибка
Задача №2.
Не разобрал условие (((

//Pascal. Task.1
var x,y:real;
begin
repeat
  readln(x);
until x<>-1;
y:=sqrt(x*x*x*x/2+2*x/(x+1);
writeln(y);
end.