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

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

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

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

Первый способ

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

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

vvedite chislo a
4
vvedite chislo b
7
vvedite chislo c
2
b bolshe :7

второй способ

var
   a,b,c,max:integer;
begin
     writeln('Vedite chislo a');
     readln(a);
     writeln('Vedite chislo b');
     readln(b);
     writeln('Vedite chislo c');
     readln(c);
     if (a>b)then
        max:=a
     else
        max:=b;
     if (c>max)then
        max:=c;
        writeln('vivoditsya bolsshee chislo: ',max);
     readln();
end.

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

Vedite chislo a
5
Vedite chislo b
8
Vedite chislo c
3
vivoditsya bolsshee chislo: 8

третий способ

var
a,b,c:integer;

begin
     writeln('Vedite chislo');
     readln(a);
     writeln('Vedite chislo');
     readln(b);
     writeln('Vedite chislo');
     readln(c);
     if(a>b)then
        if(a>c)then
         writeln('Pervoe chislo bolshe', a)
        else
         writeln('trete chislo bolshe ', c)
     else
        if(b>c)then
        writeln('vtoroe chislo bolshe ', b)
     else
        writeln('trete chislo bolshe ', c);
     readln();
end. 

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

Vedite chislo
14
Vedite chislo
20
Vedite chislo
8
vtoroe chislo bolshe 20