Задание ** Free Pascal. Даны вещественные x, y, z. Вычислить a, b, если

Question

Задание на Free Pascal. Даны вещественные x, y, z. Вычислить a, b, если

---

Answer 1

Program imaiytarowo;
uses crt;
var
  x,y,z:real;
begin
  writeln('+---------------------------+');
  writeln('|        ВЫЧИСЛЯЛКА         |');
  writeln('+---------------------------+');
  write('   Введите число x: '); readln(x);
  write('   Введите число y: '); readln(y);
  write('   Введите число z: '); readln(z);
  writeln();
  writeln('+---------------------------+');
  writeln('|        Результат:         |');
  writeln('+---------------------------+');
  writeln('|      a= ',(sqrt(abs(y+z))-power(abs(x*x-z),1/4))/(exp(x)+exp(y)):11:3,'       |');
  writeln('|      b= ',ln(abs(cos(x+y)*(cos(x+y))+x*x/4-z*z/3)):11:3,'       |');
  writeln('+---------------------------+');
end.