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

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

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

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

var a, b, c, x: integer;

begin
// С использованием логической операции and.
  writeln('Введите три целых числа:');
  readln(a, b, c);

  if (a > b) and (b > c) or (a > c) and (c > b) then
    writeln('Максимальное число = ', a)
  else
    if (b > a) and (a > c) or (b > c) and (c > a) then
      writeln('Максимальное число = ', b)
    else
      writeln('Максимальное число = ', c);

// С вложенными блоками (без and, все операторы if должны быть в полной форме).
  writeln('Введите три целых числа:');
  readln(a, b, c);

  if (a > b) then
    begin
      if (a > c) then
        writeln('Максимальное число = ', a)
      else
        writeln('Максимальное число = ', c);
    end
  else
    if (b > c) then
      writeln('Максимальное число = ', b)
    else
      writeln('Максимальное число = ', c);

// Без вложенных блоков (без and)
  writeln('Введите три целых числа:');
  readln(a, b, c);

  if (a > b) then
    x := a
  else
    x := b;

  if (x > c) then
    writeln('Максимальное число = ', x)
  else
    writeln('Максимальное число = ', c);

  readln();
end. 
vedro-compota's picture

  if (a > b) and (b > c) or (a > c) and (c > b) then
    writeln('Максимальное число = ', a)
  else
    if (b > a) and (a > c) or (b > c) and (c > a) then
      writeln('Максимальное число = ', b)
    else
      writeln('Максимальное число = ', c);

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

4 4 2

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

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

var a, b, c, : integer;
 
begin
// С использованием логической операции and.
  writeln('Введите три целых числа:');
  readln(a, b, c);
  if (a >= b) and (b > c) or (a > c) and (c >= b) then
    writeln('Максимальное число = ', a)
  else
    if (b > a) and (a >= c) or (b > c) and (c >= a) then
      writeln('Максимальное число = ', b)
    else
      writeln('Максимальное число = ', c);
end.
vedro-compota's picture

засчитано

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