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

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

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

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

//С использованием and:

program Project1;
var firstNumb, secondNumb, thirdNumb : integer;

begin
     write('Vvedite pervoe chislo: '); readln(firstNumb);
     write('Vvedite vtoroe chislo: '); readln(secondNumb);
     write('Vvedite tret`e chislo: '); readln(thirdNumb);

     if((firstNumb>secondNumb) and (firstNumb>thirdNumb)) then
           writeln('max chislo: ',firstNumb)
     else
     if ((secondNumb>firstNumb) and (secondNumb>thirdNumb)) then
           writeln('max chislo: ',secondNumb)
     else
           writeln('max chislo: ',thirdNumb);
readln();
end. 

//C вложенными блоками (без and)

program Project1;
var firstNumb, secondNumb, thirdNumb : integer;

begin
     write('Vvedite pervoe chislo: '); readln(firstNumb);
     write('Vvedite vtoroe chislo: '); readln(secondNumb);
     write('Vvedite tret`e chislo: '); readln(thirdNumb);

     if (firstNumb>secondNumb) then
        if (firstNumb>thirdNumb) then
            writeln('max chislo: ',firstNumb)
     else
     if (secondNumb>firstNumb) then
          if (secondNumb>thirdNumb) then
             writeln('max chislo: ',secondNumb)
     else
     if (thirdNumb>firstNumb) then
          if (thirdNumb>secondNumb) then
             writeln('max chislo: ',thirdNumb)

readln();
end.

//Без вложенных блоков (без and)

program Project1;
var firstNumb, secondNumb, thirdNumb, max  : integer;

begin
     write('Vvedite pervoe chislo: '); readln(firstNumb);
     write('Vvedite vtoroe chislo: '); readln(secondNumb);
     write('Vvedite tret`e chislo: '); readln(thirdNumb);

     if (firstNumb>secondNumb) then
        max:=firstNumb;
     else
        max:=secondNumb;

     if (thirdNumb>max) then
        writeln('max chislo: ', thirdNumb);
     else 
        writeln('max chislo: ', max);
readln();
end.