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

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

У вас есть три числа (три переменные) найдите их медиану

var a, b, c : integer;

begin
  writeln('Введите три целых числа:');
  readln(a, b, c);

  if (a > b) and (b > c) or (a < b) and (b < c) then
    writeln(b)
  else
    if (b > a) and (a > c) or (a > b) and (a < c) then
      writeln(a)
    else
      if (c > b) and (a > c) or (b > c) and (c > a) then
      writeln(c);
  readln();
end.
vedro-compota's picture

учесть случаи равенств всех или некоторых элементов

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

var a, b, c : integer;

begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  if (a <= b) and (a >= c) or (a >= b) and (a <= c) then
    writeln('Медиана ', a)
  else
    if (b <= a) and (b >= c) or (b >= a) and (b <= c) then
      writeln('Медиана ', b)
    else
      writeln('Медиана ', c);
  readln();
end.  
vedro-compota's picture

засчитано

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