Решение задачи 7 из главы 9

Решение задачи 7 из главы 9

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

program Project7;
var A, B, C, D, maxA, maxB, maxC, maxTotal : integer;
begin
  writeln('Vvedite chetyre zelyh chisla:');
  read(A, B, C, D);
  if (A > B) then
     maxA := A
  else
      maxA := B;
  if (maxA > C) then
     maxB := maxA
  else
      maxB := C;
  if (maxB > D) then
     maxC := maxB
  else
      maxC := D;
  maxTotal := maxC;
  writeln('Maksimalnoe chislo: ', maxTotal);
  readln();readln();
end.
vedro-compota's picture

добавьте в комментах решение через вложенные операторы if

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

program Project7;
var A, B, C, D: integer;

begin
  writeln('Vvedite chetyre zelyh chisla:');
  readln(A, B, C, D);
  if (A > B) then
     if (A > C) then
        if (A > D) then
           writeln('Maksimalnoe chislo: A')
        else
            writeln('Maksimalnoe chislo: D')
     else if (C > D) then
         writeln('Maksimalnoe chislo: C')
           else
              writeln('Maksimalnoe chislo: D')
  else if (B > C) then
       if (B > D) then
          writeln('Maksimalnoe chislo: B')
       else
           writeln('Maksimalnoe chislo: D')
  else if (C > D) then
     writeln('Maksimalnoe chislo: C')
       else
           writeln('Maksimalnoe chislo: D');

readln();
end.