урок 9 задача 8

урок 9 задача 8

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

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

program U9Z81;

var a, b, c: integer;
  begin
    writeln('Введите три числа: ');
    readln(a,b,c);
    if (a > b) and (a > c) then
      writeln(a)
      else
        if (b > a) and (b > c) then
          writeln(b)
          else
        writeln(c);
    readln();
  end.                    

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

program U9Z82;

var a, b ,c: integer;
  begin
     writeln('Введите три числа ');
     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.                     

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

program U9Z83;

var a, b,c , ma: integer;
 begin
  writeln('Введите три числа: ');
  readln(a,b,c);
  if (a > b) then
    ma := a
  else
    ma :=b;
     if (c > ma) then
       ma := c;
       writeln(ma);
  readln;
 end.