Задание 7 Урок 9

Задание 7 Урок 9

Пользователь вводит четыре числа, найдите из них максимальное.

var
    a,b,c,d : real;

begin
  write('Введите три числа через пробел и нажмите ENTER: ');
  readln(a,b,c,d);

  if (a > b) then
    if (a > c) then
      if (a > d) then
        write('Максимальное число - ', a:0:1)
      else
        write('Максимальное число - ', d:0:1)
    else
      if (c > d) then
        write('Максимальное число - ', c:0:1)
      else
        write('Максимальное число - ', d:0:1)
  else
    if (b > c) then
      if (b > d) then
        write('Максимальное число - ', b:0:1)
      else
        write('Максимальное число - ', d:0:1)
    else
      if (c > d) then
        write('Максимальное число - ', c:0:1)
      else
        write('Максимальное число - ', d:0:1);

  readln();
end. 

Key Words for FKN + antitotal forum (CS VSU):

vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)