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

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

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

решение задачи:

program Lesson96_13;
var A,B,C,ME:integer;
begin
     writeln('vvedite chislo A');
     readln(A);
     writeln('vvedite chislo B');
     readln(B);
     writeln('vvedite chislo C');
     readln(C);

      if ((A >= B) and (A <= C)) or ((A <= B) and (A >= C)) then
         ME := A
      else if ((B >= A) and (B < C)) or ((B < A) and (B >= C)) then
         ME := B
      else
         ME := C;
      writeln('mediana : ', ME);
      readln();
end.