Помогите решить задачу по Pascal Вычислить и вывести ** печать значение функции(картинка...

Question

Помогите решить задачу по Pascal
Вычислить и вывести на печать значение функции(картинка внизу) . Исходные данные X, A и B ввести с клавиатуры.

---

Answer 1

Var
x, a, b: Integer; y: Real;
begin
//writeln(x,a,b);
ReadLn(x);
ReadLn(a);
ReadLn(b);
y:= tg*x*exp(ln(a)*(b+1))*ln(a+b);
WriteLn('Otvet y = 'y);

Comments

Спасибо огромное!