Задано четыре числа: a,b,c,d .Требуется разбить их на две пары,чтоб сумма

Задано четыре числа: a,b,c,d .Нужно разбить их на две пары,чтобы сумма творений в этих парах была максимальна
К примеру,если заданы числа 2,3,4 и 5, то нормально разбить их на пары (2,3) и (4,5),в этом случае разыскиваемая сумма одинакова 2x3+4x5=26.

Формат входных данных
На вход подаются четыре числа: a.b.c и d.Все числа по модулю не превосходят 1000..

Формат выходных данных.
Выведите искомую наивысшую сумму.

Примеры
стандартный ввод
2 3 4 5
стандартный вывод
26

Задать свой вопрос
Данил Шабага
Это На Паскале писать?
2 ответа
Var a,b,c,d,s:integer;
begin
readln(a,b,c,d);
s:=a*b+c*d;
if a*c+b*dgt;s then s:=a*c+b*d;
if a*d+b*cgt;s then s:=a*d+b*c;
writeln(s);
// можно вывести приобретенные пары чисел:
if s=a*b+c*d then writeln('(',a,',',b,') и (',c,',',d,')')
 else if s=a*c+b*d then writeln('(',a,',',c,') и (',b,',',d,')')
  else writeln('(',a,',',d,') и (',b,',',c,')')
end.

Пример:
2 3 4 5
26
(2,3) и (4,5)
Var a: array[1..4] of integer;
    i,j: integer;
begin
   for i:=1 to 4 do read(a[i]);
   for i:=1 to 3 do
   for j:=i+1 to 4 do
   if a[i]lt;a[j] then swap(a[i],a[j]);
   writeln(a[1]*a[2]+a[3]*a[4]);
end.

11 6 5 19
239


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт