Можно ли коробку размером 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.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы