Question

1. постановка . иллюминатор корабля имеет форму круга. будем считать, что сундук имеет форму параллелепипеда. чтобы вытащить сундук, необходимо, чтобы диаметр иллюминатора был больше любой из трех диагоналей поверхности сундука. 2. модель. пусть r – радиус иллюминатора, a, b, c – размеры сундука, d1, d2, d3 – диагонали боковых поверхностей сундука сундук можно вытаскивать через иллюминатор одной из трех боковых граней, следовательно, достаточно, чтобы диагональ иллюминатора оказалась меньше одной из трех диагоналей сундука, т.е. должно быть истинно хотя бы одно из условий: ; 1; 0) ; 1; 0) ; 1; 0)

Answer 1

Var a,b,c,r,d1,d2,d3:real;
begin
   writeln('Введи радиус иллюминатора и размеры сундука');
   readln(r,a,b,c);
   d1:=sqrt(sqr(a)+sqr(b));
   d2:=sqrt(sqr(a)+sqr(c));
   d3:=sqrt(sqr(b)+sqr(c));
   writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
   if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.