Question

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

Answer 1

Первые два вчера писал: http://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))

  or ((a <= x) and (b <= z)) or ((a <= z) and (b <= x))

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

end.