Question

Вычислить значение выражения по формуле (все переменные принимают действительные значения). (PascalABC.NET), задание номер 13,20,23.

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var x,y:real;
  Write('Введите x и y: '); Read(x,y);
  // 13
  Writeln(cos(x)/(pi-2*x)+16*x*cos(x*y)-2);
  // 20
  Writeln((1+sin(sqrt(sin(x)+1)))/cos(12*y-4));
  // 23
  Writeln(Power(3,x)-4*x+(y-sqrt(abs(x))))
end.

Тестовое решение
Введите x и y: 2.15 4.1
-29.7277579658493
5.71678202339215
4.64604098127078