написать программу нахождения максимольного среди min(a,b) и min(c,d). Не используя function

16.01.2014, 18:01. **Показов** 1664. **Ответов** 1

Студворк — интернет-сервис помощи студентам

В задаче нужно найти max{min(a,b),min(c,d)}.
Не пойму как нужно прописать в программе эти условия,помогите пожалуйста!

@L_e_g_i_o_n · 16.01.2014, 18:26

Pascal

var a,b,c,d,min1,min2,max :real;
begin
     write('a,b,c,d :');
     readln(a,b,c,d);
     if a < b then min1:=a else min1:=b;
     if c < d then min2:=c else min2:=d;
     if min1 > min2 then max:=min1 else max:=min2;
     writeln('max[min(a,b),min(c,d)]= ',max);
end.

Кислинка
		1
	написать программу нахождения максимольного среди min(a,b) и min(c,d). Не используя function 16.01.2014, 18:01. Показов 1664. Ответов 1 Метки нет (Все метки) В задаче нужно найти max{min(a,b),min(c,d)}. Не пойму как нужно прописать в программе эти условия,помогите пожалуйста!

Опции темы

написать программу нахождения максимольного среди min(a,b) и min(c,d). Не используя function

Решение