Question

Помогите решить в Паскале с процедурой пожалуйста .

Даны
действительные a, b, c, d. Используя функции
поиска максимума двух чисел max и минимума
двух чисел min, получить:
max(a, b)+min(a, b)
+min(c,d)
——————––––—––———
.
max(a, b, c, d) + min(a,b,c)

Answer 1

function min(a, b: real): real;
begin
     if ((a = b) or (a < b)) then result := a
        else result := b;
end;

function max(a, b: real): real;
begin
     if ((a = b) or (a > b)) then result := a
        else result := b;
end;

procedure prog(a, b, c, d: real);
begin
     writeln(max(a, b)+min(a, b) + min(c,d));
end;

var a, b, c, d: real;
begin
     readln(a, b, c, d);
     prog(a, b, c, d);
end.

Вот, тут тебе и процедура, и функции:)