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

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

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

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

1)

var a,b,c:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a > b) AND (a > c) then
    writeln('a max')
  else
    if (a < b) AND (b > c) then
       writeln('b max')
  else
    writeln('c max');
  readln();
end. 

2)

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

3)

var a,b,c,max:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a > b) then
    max := a
  else
    max := b;
  if (max < c) then
    max := c;
  writeln('Maksimalnoe:', max);
  readln();
end.     

Вывод консоли:

Maksimalnoe chislo