Найти экстремиум, составив разветвляющуюся x=max(max(a,b)+min(b,c),b+d) - вопрос №9130480 от Alex1t0 30.10.2021 18:13

Question

Информатика: Найти экстремиум, составив разветвляющуюся x=max(max(a,b)+min(b,c),b+d)

Alex1t0 · Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a,b,c,d:real;
Read(a,b,c,d);
var x:=Max(Max(a,b)+Min(b,c),b+d);
Writeln(x)
end.

Пример
3.18 -6 14.3 9.1
3.1

Найти экстремиум, составив разветвляющуюся x=max(max(a,b)+min(b,c),b+d)

Найти экстремиум, составив разветвляющуюся x=max(max(a,b)+min(b,c),b+d)