Question

как в паскале из функции max вычесть min (предварительно вычислив их значения)

Answer 1

var

a,b:integer;

function max(a, b:integer): integer;

begin

   if a >= b then

       max:=a else max := b; end;

function min(a, b:integer): integer;

begin

if a <= b then

       min := a  else  min := b;

end;

begin

   write ('Введите число a ');

   readln (a);

   

   write ('Введите число b ');

   readln (b);

 

writeln(max(a,b)-min(a,b));

end.