Question

составте программу пж на PascalABCNET очень прошу пожалуйста

Answer 1

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

begin
  var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
  var x:=ReadReal('x=');
  var ω:=x<1.2 ? a*x*x+b*x+c : x=1.2 ? a*x+Sqrt(x*x+1) : (a+b*x)/Sqrt(x*x+1);
  Writeln('ω=',ω)
end.