Информатика, вопрос задал Кирчик , 10 лет назад

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)

Ответы на вопрос

Ответил archery
0

var a,b,c,d:real;

Begin

   read(a,b,c,d);

   if ((a<c) and (b<d)) or ((b<c) and (a<d)) then

     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.

 

 

 

Новые вопросы