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

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

6. Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

o С использованием логической операции and.

program Project61;
var A, B, C : integer;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  if((A > B) AND (A > C)) then
        writeln('Maksimalnoe chislo: ', A)
  else if
       ((B > A) AND (B > C)) then
           writeln('Maksimalnoe chislo: ', B)
       else
           writeln('Maksimalnoe chislo: ', C);
  readln();readln();
end.

o С вложенными блоками (без and).

program Project62;
var A, B, C : integer;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  if(A > B) then
       if(A > C) then
            writeln('Maksimalnoe chislo: ', A)
       else
           writeln('Maksimalnoe chislo: ', C)
  else if
       (B > C) then
          writeln('Maksimalnoe chislo: ', B)
       else
           writeln('Maksimalnoe chislo: ', C);
  readln();readln();
end.

o Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

program Project63;
var A, B, C, maxA, maxB, maxTotal : integer;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  if (A > B) then
     maxA := A
  else
      maxA := B;
  if (maxA > C) then
     maxB := maxA
  else
      maxB := C;
  maxTotal := maxB;
  writeln('Maksimalnoe chislo: ', maxTotal);
  readln();readln();
end.