1. Составить программу для вычисления x и y по формулам

Question

1.
Составить программу для вычисления x и y по формулам

Answer 1

Program Zadacha;
Var a, b, c, x, y: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
x := Exp(0.25 * Ln(Sin(0.35 * a * b)));
y := Cos((3.04 * a) / (2 * x)) / Sin((3.04 * a) / (2 * x)) + 2 * Sin((a * b * b) / (3 * c));
WriteLn('x = ', x:5:2);
WriteLn('y = ', y:5:2);
ReadLn;
End.