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

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

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

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

решение задачи:

решение 1

program Lesso96_1;
var A,B,C:integer;

begin
     writeln('vvedite chislo A');
     readln(A);
     writeln('vvedite chislo B');
     readln(B);
     writeln('vvedite chislo C');
     readln(C);
     if (A > B) AND (A > C) then
        writeln('max chislo: A')
     else if (B > A) AND (B > C) then
         writeln('max chislo: B')
     else
         writeln('max chislo: C');
     readln();
end.

--------------------------------------------------------------------------------

решение 2

program Lesso96_2;
var A,B,C:integer;

begin
     writeln('vvedite chislo A');
     readln(A);
     writeln('vvedite chislo B');
     readln(B);
     writeln('vvedite chislo C');
     readln(C);
     if(A > B)then
     begin
          if (A > C) then
             writeln('max chislo: A = ', A)
     end else
         if (B > C) then
            writeln('max chislo: B = ', B)
         else
             writeln('max chislo: C = ', C);
     readln();
end.

--------------------------------------------------------------------------------

решение 3

program Lesso96_3;
var A,B,C,result:integer;
begin
     writeln('vvedite chislo A');
     readln(A);
     writeln('vvedite chislo B');
     readln(B);
     writeln('vvedite chislo C');
     readln(C);

     if (A > B) then
        result := A
     else
         result := B;
     if (result < C) then
        result := C;
      writeln('max chislo:', result);
      readln();
end.