Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascalпомогите, пожалуйста :(
Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal
помогите, пожалуйста :(
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d:integer;
function max (const x,y:integer):integer;
begin
if (x>y) then max:=x else max:=y;
end;
function min (const x,y:integer):integer;
begin
if (x
Не нашли ответ?
Похожие вопросы