Можно ли коробку размером a b c упаковать в посылку размером r s t? «Углом» укладывать нельзя - Turbo Pascal
Формулировка задачи:
Можно ли коробку размером abc упаковать в посылку размером rst? «Углом» укладывать нельзя.
Решение задачи: «Можно ли коробку размером a b c упаковать в посылку размером r s t? «Углом» укладывать нельзя»
textual
Листинг программы
var a,b,c, r,s,t:integer; begin Write('Введите размеры посылки (r s t): '); ReadLn(r,s,t); Write('Введите размеры коробки (a b c): '); ReadLn(a,b,c); if (a<=r) and (b<=s) and (c<=t) or (a<=r) and (b<=t) and (c<=s) or (a<=s) and (b<=r) and (c<=t) or (a<=s) and (b<=t) and (c<=r) or (a<=t) and (b<=r) and (c<=s) or (a<=t) and (b<=s) and (c<=r) then WriteLn('Можно упаковать!') else WriteLn('Нет, не влезет!'); ReadLn end.