Question

. Реализовать функцию f(x,y,z) = (x/y+y/z+z/x), x, y – произвольные числа целого типа, z – выбор вещественного типа.

Answer 1

Ответ:

Function f(var x,y:integer,z:real):real

Begin

F:=x/y+y/z+z/x;

End;