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

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

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


textual

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

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;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник