Напишите функцию, которая возвращает наименьшее из значений - Pascal

Формулировка задачи:

Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

Код к задаче: «Напишите функцию, которая возвращает наименьшее из значений - Pascal»

textual
function f(x, y, z: Integer): Integer;
var m, t: Integer;
begin
  m:=Abs(x-y);
  t:=Abs(y-z); if m>t then m:=t;
  t:=Abs(z-x); if m>t then m:=t;
  f:=m;
end;

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ