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

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

((a*c

((c*b

writeln('ДА') else

writeln('НЕТ');

end.