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

1

Ответы и объяснения

Лучший Ответ!
2013-06-21T20:11:23+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.


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.