Question

Решить задачи:
1)Даны x,y,z.Найти f=max(x^2+y^2-z;x^2+z^2-y)+64

2)y=(20x-10x^3,при x<=10
(25x^3-61x^2,x>10

Answer 1

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

begin
  var x,y,z:real;
  Read(x,y,z);
  var f:=max(x*x+y*y-z,x*x+z*z-y)+64;
  Writeln('f=',f)
end.

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

begin
  var x:=ReadReal('x=');
  var y:=x>10?x*x*(25*x-61):10*x*(2-x*x);
  Writeln('y=',y)
end.