Вопрос по информатике:
Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal
помогите, пожалуйста :(
- 18.08.2016 07:05
- Информатика
- remove_red_eye 1819
- thumb_up 14
Ответы и объяснения 1
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
begin
readln (a,b,c,d);
writeln (max(min(a,b),min(c,d)));
end.
- 19.08.2016 12:05
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.