Предмет: Информатика, автор: 55121997

СРОЧНО!!! 
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).Решить в Делфи 7

Ответы

Автор ответа: archery
0
var
    x, y, z, d: real;

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

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

begin
    readln(x, y, z, d);
    writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.
Похожие вопросы
Предмет: Математика, автор: anastasiayanik4
Предмет: Биология, автор: deman6klass