1. Даны вещественные положительные числа а,в,с,d. выяснить можно ли прямоугольник со сторонами а,b уместить внутри прямоугольника со сторонами с,d так, чтобы каждая из сторон одного прямоугольника былапараллельна или перпендикулярна каждой стороне второго прямоугольника. 2. вычислить преизведение двух наименьших из трёх различных чисел. 3. даны числа х,у,z. найти значение выражения: u=(max(в квадрате) (x,y,z) – 2(в степени x) (x,y,z))/( sin2x + max(x,y,z)/min(x,y,z)

от

Вопрос от посетителя

1. Даны вещественные положительные числа а,в,с,d. выяснить можно ли прямоугольник со сторонами а,b уместить внутри прямоугольника со сторонами с,d так, чтобы каждая из сторон одного прямоугольника былапараллельна или перпендикулярна каждой стороне второго прямоугольника.

2. вычислить преизведение двух наименьших из трёх различных чисел.

3. даны числа х,у,z. найти значение выражения:
u=(max(в квадрате) (x,y,z) – 2(в степени x) (x,y,z))/( sin2x + max(x,y,z)/min(x,y,z)

Отвечает Илюха:

var a,b,c,d:real;

Begin

   read(a,b,c,d);

   if ((a

     writeln(‘Впишется’)

   else writeln(‘Не впишется’);

End.

 

var a,b,c:real;

Begin

   read(a,b,c);

   if (a>b) and (a>c) then a:= b*c;

   if (b>a) and (b>c) then a:= a*c;

   if (c>b) and (c>a) then a:= b*a;

 

   writeln(a);

End.

3)var x,y,z,u:real;
function max(x,y,z:real):real;
begin
  if (x>=y) and (x>=z) then max:= x;
  if (y>=x) and (y>=z) then max:= y;
  if (z>=y) and (z>=x) then max:= z;
end;

function min(x,y,z:real):real;
begin
  if (x<=y) and (x<=z) then min:= x;
  if (y<=x) and (y<=z) then min:= y;
  if (z<=y) and (z<=x) then min:= z;
end;

Begin
    read(x,y,z);
    u:=(max(x,y,z)*max(x,y,z)-exp(x*ln(2)))/(sin(2*x)+max(x,y,z)/min(x,y,z));
    writeln(u);
End.

 

 

 

Добавить свой ответ