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

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

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

Решение:

var a, b, c:integer;
begin
  writeln('vvedite a, b, c');
  readln (a,b,c);
  if ((b < a) and (a < c)) or ((b > a) and (a > c)) then
    writeln('mediana: a');
  if ((a < b) and (b < c)) or ((a > b) and (b > c)) then
    writeln('mediana: b');
  if ((b < c) and (c < a)) or ((b > c) and (c > a)) then
    writeln('mediana: c');
  readln;
end.  

Консоль:

vvedite a, b, c
1
2
3
mediana: b
vedro-compota's picture

  • 1) Если изветно что два числа не подошли - то дальше можно не сравнивать
  • 2) Если какое число подошло - то дальше тоже можно не сравнивать

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

var a, b, c:integer;
begin
  writeln('vvedite a, b, c');
  readln (a,b,c);
  if ((b < a) and (a < c)) or ((b > a) and (a > c)) then
    writeln('mediana: a')
  else if ((a < b) and (b < c)) or ((a > b) and (b > c)) then
    writeln('mediana: b')
  else
    writeln('mediana: c');
  readln();
end.
vedro-compota's picture

засчитано

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