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

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

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

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

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

var
   a,b,c:integer;
begin
  writeln('Vvedite a,b,c: ');
  readln(a,b,c);
  writeln();
   if ((a > b) and (a > c)) then
    writeln('Pervoe chislo max ',a)
   else 
       if ((b > a) and (b > c)) then
        writeln ('Vtoroe chislo max ',b)
       else 
            if ((c > a) and (c > b)) then
             writeln ('Tretie chislo max ',c);
 readln();
end.    

2) Второй способ

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

3) Третий способ

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