Question

Помогите решить задачу в Pascal, срочно даю 30+ баллов подробнее на фото

Answer 1

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

begin
  var d,f,g,h:real;
  Read(d,f,g,h);
  var m:=(d-f)/(g+h);
  var n,p:real;
  if m<0 then n:=Abs(m)
  else if m>0 then n:=Sqrt(m)
  else n:=d*d;
  if d.Between(1,2) then p:=n-d
  else p:=1/n;
  Writeln('m= ',m,', N= ',n,', P= ',p)
end.

Пример
-1.4 2.7 10 3.06
m= -0.313935681470138, N= 0.313935681470138, P= 3.18536585365854