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

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

Решите тремя способами:

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

<pre class="brush: php">program project6;

{
Пользователь вводит три числа. Найдите максимальное тремя разными путями.
}
var
  a,b,c,per:integer;

begin
  writeln('Vvedite celoe chislo a: ');
  readln(a);
  writeln('Vvedite celoe chislo b: ');
  readln(b);
  writeln('Vvedite celoe chislo c: ');
  readln(c);

  //способ с использованием логического оператора and
  writeln('1 Sposob');
  if ((a>b) and (a>c))then
  writeln ('max=',a)
  else if(b>c)then
  writeln('max=',b)
  else writeln('max=',c);

  //с вложенными блоками без and
  writeln('2 Sposob');
  if (a>b) then
  begin
      if (a>c) then
      writeln('max=',a)
      else
      writeln('max=',c)
  end
  else if(b>c)then
  writeln('max=',b)
  else writeln('max=',c);

  //без вложенных циклов, без and
  writeln('3 Sposob');

  if(a>b) then per:=a
  else per:=b;

  if(per>c)then writeln('max=',per)
  else writeln('max=',c);


end.</pre> 

Консоль:

Vvedite celoe chislo a: 
6

Vvedite celoe chislo b: 
1
2

Vvedite celoe chislo c: 
3
2

1 Sposob
max=32
2 Sposob
max=32
3 Sposob
max=32