Даны 3 разных числа. Найти, какое из их (1-ое, 2-ое или

Даны 3 разных числа. Найти, какое из их (1-ое, 2-ое или третье) является средним

Задать свой вопрос
Виктория Воронцов-Вельяминова
отсортирова числп просто надобно
Михаил
Даны 3 разных числа. Найти, какое из их (1-ое, 2-ое либо третье) является средним
Саша Эслингер
вот, тогда вот так непосредственно
Вова
т.е. необходимо номер вывести а не значение среднего? это усложняет дело. Массивы использовать можно?
Егор Безрогов
окончательно можно перебрать все 6 вариантов, но это не нормально
2 ответа
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a,b,c:real;
  Read(a,b,c); // не вводить схожих!
  if agt;b then
    if agt;c then // a gt; [b,c]
      if bgt;c then Writeln('Среднее - второе число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее - 1-ое число')
  else
    if bgt;c then // b gt; [a,c]
      if agt;c then Writeln('Среднее - первое число')
      else Writeln('Среднее - третье число')
    else Writeln('Среднее -  2-ое число')
end.
Александр Бурсановский
спасибо громадное! вы меня очень выручили! !!
Var
    a, b, c: real;

function IsBetween(x, a, b: real): boolean;
var
    t: real;
begin
    if a lt; b then
    begin
        t := a;
        a := b;
        b := t;
    end;
    IsBetween := (a gt;= b) and (a gt;= x) and (x gt;= b);
end;

begin
    
    Readln(a, b, c); // не вводить схожих!
    Write('Среднее число ');
    
    if IsBetween(a, b, c) then writeln(1);
    if IsBetween(b, a, c) then writeln(2);
    if IsBetween(c, b, a) then writeln(3);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт