Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров? - Pascal ABC

Формулировка задачи:

Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров? Дома можно располагать только параллельно сторонам участка.

Код к задаче: «Можно ли на прямоугольном участке застройки размером a b разместить два дома размерами p q и r s метров? - Pascal ABC»

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.

15   голосов, оценка 3.467 из 5


СОХРАНИТЬ ССЫЛКУ