Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Найти max{min(a,b), min(c,d)}
Написать на Паскале.Оператор if без всяких function

Ответ оставил Гость

Var a,b,c,d,min1,min2,max:integer;
begin
write(a = ); readln(a);
write(b = ); readln(b);
write(c = ); readln(c);
write(d = ); readln(d);
if aif cif min1>min2 then max:=min1 else max:=min2;
writeln(max = ,max);
end.

Пример:
a = 5
b = 2
c = 1
d = 4
max = 2

Оцени ответ