Выясните, к какому классу — тестовым или графическим редакторам, драйверам, системам программирования, программам профессионального назначения и т.д. относятся
следующие программы
Norton Commander, WinRar, keyboard dry, 1С Предприятие MS Word FoxPro, 3D Studio,
C+, Фортран, Linux, Блокнот, mouse drv, MS Excel, Adobe Photoshop, Macromedia Flash,
Компас зD, Pascal, oIP, Cu, Basic, AVP Касперского, Windows7, Paint, Outlook Express,
HTML, Dr Web, MS Access, Nero Premium, Консультант Плюс", ѕоund drv.
Распределите их по группам в ячейки
// Функция для определения из двух чисел минимальное
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.