Решить в Паскале (без массива) №1 Составьте не менее трёх вариантов программы определения...

Question

Решить в Паскале (без массива) №1 Составьте не менее трёх вариантов программы определения наименьшего их трех данных чисел. №2 Составить программу сортировки по возрастанию значений трёх переменных : А,В,С . №3 Заданы Размеры а,в прямоугольного отверстия x,y,z кирпича. Определить пройдет ли кирпич через отверстие .

Answer 1

Первые два вчера писал: znanija.com/task/1944982

 

В третьем не уверен в самом алгоритме...

 

var

  a, b, x, y, z : real;

begin

  read (a, b, c, x, y);

  if ((a <= x) and (b <= y)) or ((a <= y) and (b <= x))</p>

  or ((a <= x) and (b <= z)) or ((a <= z) and (b <= x))</p>

  or ((a <= z) and (b <= y)) or ((a <= y) and (b <= z)) then writeln ('YES') else writeln ('NO');</p>

end.