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

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

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

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

   var a,b,c : integer;
   begin
     writeln('Vvedite a,b,c');
     readln(a,b,c);
     if (a>b) and (a>c) then
       writeln('Max number = a');
     if (b>a) and (b>c) then
       writeln('Max number = b');
     if (c>b) and (c>a) then
       writeln('Max number = c');
     readln();
   end. 

2. С вложенными блоками (без and, все операторы if должны быть в полной форме).
   

   var a,b,c : integer;
   begin
     writeln('Vvedite a,b,c');
     readln(a,b,c);
     if (a>b) then
       if (a>c) then
         writeln(a)
       else
         writeln(c)
     else
       if (b>c) then
         writeln(b)
       else
         writeln(c);
   readln();
   end.

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

    var a,b,c,max : integer;
    begin
      writeln('Vvedite a,b,c');
      readln(a,b,c);
      if (a > b) then
        max := a
      else
        max := b;
      if (max < c) then
        max := c;
      writeln('Max number = ',max);
      readln();
    end.