Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите ФУНКЦИЮ, которая вычисляет максимальное из трех чисел

Ответ оставил Гость

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;