Помогите составить программу ** языке паскаль,пожалуйстаНайти значение функции (все...

Question

Помогите составить программу на языке паскаль,пожалуйста

Найти значение функции (все переменные принимают действительныезначения).

---

Answer 1

Var i,a,b,f:real;
Вроде так
begin
  writeln('Введите a=');
  read(a);
  writeln('Введите b=');
  read(b);
  f:=sqrt(PI/8)*(sqrt((sqrt(a+b))/(sqr(a)+sqr(b)))-a*(sqr(b)*b));
  writeln(f);
end.