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

+ 0 -

Akondratyuk02

31 дек. 2014 г., 7:22:31 (9 лет назад)

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.