Question

з трьох введених чисел знайти те що знаходиться посередині (паскаль)

Answer 1

Program Evg97;
uses crt;
var
  a,b,c:real;
begin
  writeln('+----------------------------------------+');
  writeln('|               ПОРІВНЯЛКА               |');
  writeln('+----------------------------------------+');
  write('Введіть число a: '); readln(a);
  write('Введите число b: '); readln(b);
  write('Введіть число c: '); readln(c);
  writeln();
  writeln('+----------------------------------------+');
  writeln('|               Результат:               |');
  writeln('+----------------------------------------+');
  if (a=b) or (a=c) or (b=c) then
      writeln('| Хмм...  Деякі (або всі) числа рівні... |')
    else
      if (a<b) and (b<c) then
          writeln('|     Число посередині: b=',b:8:3,'       |')
        else    
          if (a<c) and (c<b) then  
              writeln('|     Число посередині: c=',c:8:3,'       |')
            else
              writeln('|     Число посередині: a=',a:8:3,'       |');
  writeln('+----------------------------------------+');
end.