// Функция для определения из двух чисел минимальное function min(a, b: real): real; begin if (a > b) then min := b else min := a end;
// Функция для определения из двух чисел максимальное function max2(a, b: real): real; begin if (a > b) then max2 := a else max2 := b end;
// Функция для определения из трех чисел максимальное function max3(a, b, c: real): real; begin // Сначала определяем максимальное из первых двух чисел, // затем у нас останется два числа и нам остается определить // максимальное из них max3 := max2(max2(a, b), c); end;
var x, y, z, d, max_int: real; begin writeln('Введите 4 числа'); readln(x, y, z, d); max_int := max3(min(x, y), min(x, z), min(z, d)); writeln(max_int); end.
Answers & Comments
// Функция для определения из двух чисел минимальное
function min(a, b: real): real;
begin
if (a > b) then min := b else min := a
end;
// Функция для определения из двух чисел максимальное
function max2(a, b: real): real;
begin
if (a > b) then max2 := a else max2 := b
end;
// Функция для определения из трех чисел максимальное
function max3(a, b, c: real): real;
begin
// Сначала определяем максимальное из первых двух чисел,
// затем у нас останется два числа и нам остается определить
// максимальное из них
max3 := max2(max2(a, b), c);
end;
var
x, y, z, d, max_int: real;
begin
writeln('Введите 4 числа');
readln(x, y, z, d);
max_int := max3(min(x, y), min(x, z), min(z, d));
writeln(max_int);
end.