Ответы
Ответ дал:
27
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<y) then min:=x else min:=y;
end;
begin
readln (a,b,c,d);
writeln (max(min(a,b),min(c,d)));
end.
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<y) then min:=x else min:=y;
end;
begin
readln (a,b,c,d);
writeln (max(min(a,b),min(c,d)));
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад