Написать функцию MaxFrom3; MinFrom3 Она должна возвращать максимальное 3 целых чисел в пер
Написать функцию MaxFrom3; MinFrom3 Она должна возвращать максимальное 3 целых чисел в первом случае и возвращать минимальное 3 целых чисел во тором случае это выполняется в паскаль абс
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
Не нашли ответ?
Похожие вопросы