Помогите пожалуйста в паскале.
Даны три числа, требуется найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Даны три числа, требуется найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.
More Questions From This User See All
Answers & Comments
readln (a,b,c);
if ((b>a) and (b<c)) or ((b>c) and (b<a)) then mi:=b;
if ((a>b) and (a<c)) or ((a<b) and (a>c)) then mi:=a;
if ((c>a) and (c<b)) or ((c<a) and (c>b)) then mi:=c;
write (mi);
end.