Pascal задача можно ли прямоугольный пакет размером A,B,C положить в чемодан размерами X,Y,Z ?.
. можно ли прямоугольный пакет размером A,B,C положить в чемодан размерами X,Y,Z
напишите решение
. можно ли прямоугольный пакет размером A,B,C положить в чемодан размерами X,Y,Z
напишите решение
Сравниваете по осям, если хотя бы одна ось не подходит - нельзя.
Если есть повороты - сравниваете несколько раз посое разных поворотов.
var x,y,z, a, b, c:Extended;
procedure swapVars(var var1:Extended; var var2:Extended);
var
tmp:Extended;
begin
tmp:=var1;
var1:=var2;
var2:=tmp;
end;
begin
a:=10;
b:=30;
c:=20;
x:=11;
y:=21;
z:=31;
{Кагбэ нам лень читать x, y, z и a, b, c с клавиатуры}
if (y < z) then
swapVars(y,z);
if (x < y) then
swapVars(x,y);
{теперь у нас x > y > z}
if (b < c) then
swapVars(b,c);
if (a < b) then
swapVars(a,b);
{теперь у нас a > b > c}
if (a <= x) and (b <= y) and (c <= z) then
WriteLn('Пакет фпихуемый')
else
WriteLn('Пакет нефпихуемый');
end.