Вариант 7: 1. определить максимальное и минимальное значения из двух различных вещественных чисел. 2. дано трехзначное число. определить, какая из его цифр больше а) первая или последняя, б) первая или вторая, в) вторая или последняя 3. даны вещественные положительные числа a,b,c. выяснить, можно ли прямоугольник со сторонами а,b уместить внутри прямоугольника со сторонами с, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.
var a, b: real;
begin
readln(a, b);
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('a = b');
end.
2)
var a, b, c: integer;
begin
readln(a);
b := a mod 100 div 10;
c := a mod 10;
a := a div 100;
write('a) ');
if (a > c) then writeln(a)
else
if (a < c) then writeln(c)
else
writeln('=');
write('b) ');
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('=');
write('c) ');
if (c > b) then writeln(c)
else
if (c < b) then writeln(b)
else
writeln('=');
end.
3 даже представить не могу, извините:)