Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров? - Pascal ABC
Формулировка задачи:
Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров? Дома можно располагать только параллельно сторонам участка.
Решение задачи: «Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров?»
textual
Листинг программы
program mojno; uses crt; var a,b,p,q,r,s:integer; begin writeln('Введите стороны участка A и B через Enter'); readln(a,b); writeln('Введите стороны дома P и Q через Enter'); readln(P,q); writeln('Введите стороны дома R и S через Enter'); readln(r,s); if a*b > ((r*s)+(p*q)) then writeln('На прямоугольный участок с размерами ' , a , ' и ' , b ,' могут уместиться два дома.') else writeln('На прямоугольный участок с размерами ',a,' и ',b,' не могут уместиться два дома.') end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Программа начинается с объявления переменных
a
,b
,p
,q
,r
иs
типаinteger
. - Затем программа запрашивает у пользователя ввод сторон участка
A
иB
с помощью функцииreadln()
. - После этого происходит проверка условия
if
. Если произведение сторон участкаA
иB
больше, чем сумма произведений сторон домаP
иQ
, а такжеR
иS
, то выводится сообщение о том, что на прямоугольном участке с размерамиa
иb
могут уместиться два дома. В противном случае выводится сообщение о том, что на прямоугольном участке с такими размерами дома не поместятся. - Программа завершается с помощью оператора
end
.