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

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

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

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
Указание: Сначала посрайтесь написать все три решения самостоятельно (по 20 минут размышления на каждую задачу хотя бы), если не получается (или после решения) также можно посмотреть это видео-пояснение(link is external).

способ 1:

var a, b, c: real;
begin
 writeln('Введите число a: ');
 readln(a);
 writeln('Введите число b: ');
 readln(b);
 writeln('Введите число c: ');
 readln(c);
 if (a > b) and (a > c) then writeln('Число a максимальное');
 if (b > a) and (b > c) then writeln('Число b максимальное');
 if (c > a) and (c > b) then writeln('Число c максимальное');
 readln();
end.

способ 2:

var a, b, c: real;
begin
 writeln('Введите число a: ');
 readln(a);
 writeln('Введите число b: ');
 readln(b);
 writeln('Введите число c: ');
 readln(c);
 if (a > b) then
  begin
   if (c < a) then
    writeln('Число a максимальное')
  end
 else
   if (b > c) then
    writeln('Число b максимальное')
   else
    writeln('Число c максимальное');
 readln();
end.

способ 3:

var a, b, c, max1, max2, max3: real;
begin
 writeln('Введите число a: ');
 readln(a);
 writeln('Введите число b: ');
 readln(b);
 writeln('Введите число c: ');
 readln(c);
 if (a > b) then
  max1 := a
 else
  max1 := b;
 if (c > b) then
  max2 := c
 else
  max2 := b;
 if (a > c) then
  max3 := a
 else
  max3 := c;
 if (max1 < c) then
  writeln('Число c максимальное');
 if (max2 < a) then
  writeln('Число a максимальное');
 if (max3 < b) then
  writeln('Число b максимальное');
 readln();
end.