В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
кукушка139
кукушка139
20.07.2020 18:56 •  Информатика

Решил обновить линолеум в своей квартире. перед тем как отправиться в магазин, измерил длину и ширину двух комнат и записал четыре числа на листок. когда он вмагазине попытался определить, сколько квадратным метров линолеума ему нужно купить, онобнаружил, что забыл, каким комнатам соответствуют каждое из чисел. тогда решил купитьстолько линолеума, чтобы его хватило покрыть пол в комнатах, какая бы ни была путаница в размерах комнат.напишите программу, которая определит максимальную суммарную площадь двух комнат поизвестным размерам. вводятся четыре целых числа в диапазоне от 1 до 20 — размеры двух комнатв метрах в неизвестном порядке.вывести одно целое число — максимальную суммарную площадь комнат в квадратных метрах. пример ввода пример вывода 5 2 3 4 26 пояснение к примеру: максимальная площадь 26 квадратных метров получается, если размеры комнат 4x5 и 2x3.

Показать ответ
Ответ:
fiestrigha00p01bgj
fiestrigha00p01bgj
04.10.2020 07:31
Program aaa;
var
  a,b,c,d,s: real;
begin
  writeln('введите a, b, c, d');
  readln(a,b,c,d);
  if (a*b+c*d)>=(a*c+b*d)
    then 
      if (a*b+c*d)>=(a*d+b*c)
        then s:=a*b+c*d
        else s:=a*d+b*c 
    else 
      if (a*c+b*d)>=(a*d+b*c)
        then s:=a*c+b*d
        else s:=a*d+b*c;
  writeln(s) 
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота