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

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

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

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

var
  a, b, c, d, max: integer;

begin
  write('Введите число a: ');
  read(a);
  write('Введите число b: ');
  read(b);
  write('Введите число c: ');
  read(c);
  write('Введите число d: ');
  read(d);

  if (a > b) then // находим максимальное из первых трех чисел
    if (a > c) then
      max := a
    else
      max := c
  else
    if (b > c) then
      max := b
    else
      max := c;

  if (max < d) then // сравниваем максимальное первых трех чисел с четвертым числом
    max := d;


   write('Максимальное число: ', max);
   readln();

end.