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. program zz1;

var a, b, c, d:integer;

begin

write (' введите стороны первого прямоугольника ');

read (a, b);

write (' введите стороны второго прямоугольника ');

read (c, d);

if ((a<=c) or (a<=d)) and ((b<=c) or (b<=d)) then write (' можно') else write (' нельзя');

end.

2. program zz1;

var a, b, c, d, min, mid:integer;

begin

write (' введите заданные три числа a, b, c ');

read (a, b, c);

if (a<=b) and (a<=c) then min:=a;

if (b<=a) and (b<=c) then min:=b;

if (c<=b) and (c<=a) then min:=c;

if ((a=c)) or ((a>=b) and (a<=c)) then mid:=a;

if ((b=c)) or ((b>=a) and (b<=c)) then mid:=b;

if ((c=a)) or ((c>=b) and (c<=a)) then mid:=c;

d:=min*mid;

write (' произведение двух наименьших чисел = ', d);

end.

3. program zz1;

var x, y, z, u, min, max:real;

begin

write (' введите заданные три числа x, y, z ');

read (x, y, z);

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;

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;

u: = (sqr (max) - 2) / sin (2*x) + max/min;

write (' полученный ответ = ', u);

end.