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

1

Ответы и объяснения

2013-11-14T16:37:06+04:00
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.