Урок 9 задача 9

Урок 9 задача 9

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).

Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

Решение:

var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  if (a>b) then
    if (a>c) then
      if (a>d) then
        writeln('max - a, a=',a)
      else
        writeln('max - d, d=',d)
    else
      if (c>d) then
        writeln('max - c, c=',c)
      else
        writeln('max - d, d=',d)
  else
    if (b>c) then
      if (b>d) then
        writeln('max - b, b=',b)
      else
        writeln('max - d, d=',d)
    else
      if (c>d) then
        writeln('max - c, c=',c)
      else
        writeln('max - d, d=',d);
  readln();
end.