Question

надо написать программу в pascal которая скажет поместится прямоугольный шкаф с длиной с,шириной a и высотой b в дверь с длиной m,шириной n.

Answer 1

var a,b,c,m,n:integer;

BEGIN

write('Длина шкафа = ');

readln(c);

write('Ширина шкафа = ');

readln(a);

write('Высота шкафа = ');

readln(b);

write('Длина двери = ');

readln(m);

write('Ширина двери = ');

readln(n);

if ((a*b<=m*n) and (((a<=m) and (b<=n)) or ((a<=n) and (b<=m)))) or

((a*c<=m*n) and (((a<=m) and (c<=n)) or ((a<=n) and (c<=m)))) or

((c*b<=m*n) and (((c<=m) and (b<=n)) or ((c<=n) and (b<=m)))) then

writeln('ДА') else

writeln('НЕТ');

end.