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

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

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

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

Способ 1:

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

Способ 2:

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

Консоль:

vvedite a, b, c
1
2
3
c naibolshee

Способ 3:

var a, b, c, max2, max3: integer;
begin
     writeln('vvedite a, b, c');
     readln(a, b, c);
     if (a > b)
       then
       max2 := a
     else
       max2 := b;
     if (max2 < c) then
       max3 := c
     else max3 := max2;
     writeln('Naibolshee chislo:', max3);
     readln();
end.

Консоль:

vvedite a, b, c
1
2
1
Naibolshee chislo:2
vedro-compota's picture

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

-- проверить для набора значений

2 2 1

+ можно посмотреть видео-разбор (см. условие задачи в уроке)

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)