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

http://fkn.ktu10.com/?q=node/8539

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

var a, s, d: integer;
begin
  writeln('vvedi 3 chisla');
  readln(a, s, d);
  if(((a > s) and (a < d)) or ((a < s) and (a > d)) or (a = d) or (a = s)) then
    writeln('mediana = ', a)
  else
    if((s > a) and (s < d) or ((s < a) and (s > d)) or (d = s)) then
      writeln('mediana = ', s)
    else
      writeln('mediana = ', d);
  readln();
end.
vedro-compota's picture

Используйте операторы "больше либо равно" и "меньше либо равно"

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

var a, s, d: integer;
begin
  writeln('vvedi 3 chisla');
  readln(a, s, d);
  if(((a >= s) and (a <= d)) or ((a <= s) and (a >= d))) then
    writeln('mediana = ', a)
  else
    if((s > a) and (s < d) or ((s < a) and (s >= d))) then
      writeln('mediana = ', s)
    else
      writeln('mediana = ', d);
  readln();
end. 
vedro-compota's picture

решение засчитано

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