Напишите ФУНКЦИЮ, которая вычисляет максимальное из трех чисел
Напишите ФУНКЦИЮ, которая вычисляет максимальное из трех чисел
Ответ(ы) на вопрос:
Гость
Function Max(a,b : Integer) : Integer;
Begin
If a>=b then Max:=a else Max:=b;
end;
Function Max3(a,b,c : Integer) : Integer;
Begin
Max3:=Max(Max(a,b),c);
end;
Не нашли ответ?
Похожие вопросы