Question

Составить программу для вычисления х и у по формулам:
Паскаль

Answer 1

Program pr;
uses crt;
Var c,b,a, x, y:real;

Begin
Writeln('Введите a, b, c');
readln(a, b, c);

x:=exp(1/3*ln(sqr(cos(b))-c*sin(a*a*a)));
y:=ln(sin(a-b)/sin(4)/cos(4)*c);

Writeln('x=', x);
Writeln('y=', y);

readln;
end.

Answer 2

Спасибо)