• gmseeer
  • Комментариев: 0
  • Просмотров: 466
  • 16-06-2015, 23:44

Программа определяет максимальное и минимальное число.

program Min_Max;

 

var

  a, b, c: integer;

 

begin

  writeln('Введите число a');

  readln(a);

  writeln('Введите число b');

  readln(b);

  writeln('Введите число c');

  readln(c);

  if (a > b) then begin

    if (a > c) then

      writeln('Максимальное число ', a)

    else writeln('Максимальное число ', c)

  end

  else begin

    if (b > c) then

      writeln('Максимальное число ', b)

    else writeln('Максимальное число ', c)

  end;

  if (a < b) then begin//Min

    if (a < c) then

      writeln('Минимальное число ', a)

    else writeln('Минимальное число ', c)

  end

  else begin

    if (b < c) then

      writeln('Минимальное число є ', b)

    else writeln('Минимальное число є ', c)

  end;

end.

Комментарий:

Определение максимального числа.

  if (a > b) then begin

    if (a > c) then

      writeln('Максимальное число ', a)

    else writeln('Максимальное число ', c)

  end

  else begin

    if (b > c) then

      writeln('Максимальное число ', b)

    else writeln('Максимальное число ', c)

  end;

 

Определение минимального числа.

  if (a < b) then begin

    if (a < c) then

      writeln('Минимальное число ', a)

    else writeln('Минимальное число ', c)

  end

  else begin

    if (b < c) then

      writeln('Минимальное число є ', b)

    else writeln('Минимальное число є ', c)

  end;