Решите задачу по информатике на Pascal.
Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми.
Например 9, 3, 14 нужно вывести 9.
Или 15, 6, 1 нужно вывести 6.
Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми.
Например 9, 3, 14 нужно вывести 9.
Или 15, 6, 1 нужно вывести 6.
More Questions From This User See All
Answers & Comments
Verified answer
Решение вашей задачиVerified answer
//Максимально прямой(в значении тупой) код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