Question

Помогите. Надо написать на паскале формулы Помогитееее

Answer 1

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

1)
begin
    var x := ReadReal('x =');
    Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.

2)
begin
var x := ReadReal('x =');
if (x <= 0) then
  Writeln(0)
    else
      if (x <= 1) then
        Writeln(x)
          else
            Writeln(x**4);
end.