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

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

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

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

var
  A,B,C: integer;
begin
  write('vvedite tri 4isla 4erez probel - ');
  readln(a,b,c);

  if (a>b) and (a>c) then
     writeln('a - max')
  else
      if (b>a) and (b>c) then
         writeln('b - max')
      else
         writeln('c-max');
  readln();
end.

С вложенными блоками (без and).

var
  A,B,C: integer;
begin
  write('vvedite tri 4isla 4erez probel - ');
  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.

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

var
  a1,a2,a3: integer;
 begin
   write ('vvedite 3 celyh chisla 4ere3 probel ');
  readln (a1,a2,a3);
  if a1>a2 then begin
   if a1<a3 then writeln ('max chislo a3= ',a3) else
    if a1=a3 then writeln ('max chislo a1=a3= ',a3) else
    writeln ('max chislo a1= ',a1);
   end
  else
    if a1<a2 then begin
       if a2>a3 then writeln ('max chislo a2= ',a2) else
        if a2=a3 then writeln ('max chislo a2=a3= ',a2) else
        writeln ('max chislo a3= ',a3) end
    else
     if a1>a3 then writeln ('max chislo a1=a2= ',a1) else
      begin
       if a3>a1 then writeln ('max chislo a3= ',a3) else
        writeln ('vse chisla odinakovie a1=a2=a3= ',a1);
      end;
  readln;
  end.