Найти max{min(a,b), min(c,d)} Написать на Паскале.Оператор if без всяких function
Найти 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 amin2 then max:=min1 else max:=min2;
writeln('max = ',max);
end.
Пример:
a = 5
b = 2
c = 1
d = 4
max = 2
Не нашли ответ?
Похожие вопросы