Question

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

Answer 1

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

находим его по фрпмуле

$R=\frac{\sqrt{a^{2}+b^{2}}}{2}$

ну и пишем программу

var

   a, b : integer;

   r1, r2 : real;

begin

   writeln('введите:');

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

   readln(a);

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

   readln(b);

   write('радиус двери R=');

   readln(r1);

   r2 := sqrt(sqr(a)+sqr(b))/2;

   if r1 >= r2 then writeln('шкаф пройдет') else writeln('шкаф не пройдет');

end.