Question

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

Answer 1

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

3483127fd2f6ade93673ccaa93dbadc8.pas

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

3483127fd2f6ade93673ccaa93dbadc8.pas