Question

Решите задачу по информатике на Pascal. Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми. Например 9, 3, 14 нужно вывести 9.Или 15, 6, 1 нужно вывести 6.

Answer 1

Решение вашей задачи

Answer 2

//Максимально прямой(в значении тупой) код

var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;

if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;

if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.

Пример:
-9 3 6
3

Answer 3

Конечно! Вот пример решения задачи на языке Pascal:

pascalCopy code
program AverageNumber;

var
  a, b, c, average: Integer;

begin
  // Ввод трех чисел
  WriteLn('Введите три числа:');
  ReadLn(a, b, c);
  
  // Проверка на равенство чисел
  if (a <> b) and (a <> c) and (b <> c) then
  begin
    // Находим среднее число
    if (a > b) and (a < c) or (a < b) and (a > c) then
      average := a
    else if (b > a) and (b < c) or (b < a) and (b > c) then
      average := b
    else
      average := c;
    
    // Вывод среднего числа
    WriteLn('Среднее число: ', average);
  end
  else
    WriteLn('Ошибка: числа должны быть разными.');
end.

Программа запрашивает три числа у пользователя, затем проверяет, что числа не равны друг другу. Если все числа разные, программа находит среднее число с использованием нескольких условных операторов. Затем выводится среднее число. Если введены одинаковые числа, программа выдаст сообщение об ошибке.