Даны действительные числа a, b. Получить u = min(a, b-a, b+a), y = min(ab, a+b, a+3), k =...

Question

Даны действительные числа a, b. Получить u = min(a, b-a, b+a), y = min(ab, a+b, a+3),
k = min(u+v2, 5, u-v).

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
function min(a,b,c:real):real;
begin
  if a  if cend;

begin
  var a,b:real;
  Write('Введите два числа через пробел: '); Read(a,b);
  var u:=min(a,b-a,b+a);
  var y:=min(a*b,a+b,a+3);
  var k:=min(u+y*y,5,u-y);
  Println(u,y,k)
end.

Тестовое решение
Введите два числа через пробел: 5 8.2
3.2 8 -4.8

Comments

а разве нет встроенного минимума

---

Есть, но он для двух аргументов.