Question

ПАСКАЛЬ!!!НАДЕЮСЬ НА ПОМОЩЬ((

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите x,y:');
  Writeln((3+Exp(y-1))/(1+x*x*Abs(y-Tan(x))))
end.

Пример
Введите x,y: 2.16 -0.432
0.543001464791351

begin
  var x:=ReadReal('Введите x:');
  Writeln(x-x*x*x/3+x*Sqr(Sqr(x))/5)
end.

Пример
Введите x: 2.12
7.50860102997334

begin
  var (x,y):=ReadReal2('Введите x,y:');
  Writeln(Cos(x)/(Pi-2*x)+16*x*Cos(x*y)-2)
end.

Пример
Введите x,y: -0.534 3
-1.52895895115567

Answer 2

БОЛЬШУУУУЩЕЕ СПАСИБО,ВЫ БОЖЕТСВЕННЫ!!

Answer 3

Пожалуйста. Для благодарностей тут кнопка и звездочки