даны три числа найти разность между большим и меньшим числом
Answers & Comments
blowberryninja
Var a,b,c:integer; function min(x1,x2:integer):integer; begin if x1<x2 then min:=x1 else min:=x2; end; function max(x1,x2:integer):integer; begin if x1<x2 then max:=x2 else max:=x1; end; begin readln(a,b,c); writeln( max( max(a,b) ,c ) - min ( min(a,b), c) ); end.
Answers & Comments
function min(x1,x2:integer):integer;
begin
if x1<x2 then min:=x1 else min:=x2;
end;
function max(x1,x2:integer):integer;
begin
if x1<x2 then max:=x2 else max:=x1;
end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
end.