Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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          writeln(|     Число посередині: b=,b:8:3,       |)
        else    
          if (a              writeln(|     Число посередині: c=,c:8:3,       |)
            else
              writeln(|     Число посередині: a=,a:8:3,       |);
  writeln(+----------------------------------------+);
end.