Решите задачу по информатике ** Pascal. Даны три числа вывести среднее число но при этом...

Question

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

Answer 1

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

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 2

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

---