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< 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(/(sin(2*x)+max(x,y,z)/min(x,y,z));       writeln(u); end.

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.