Задача 16 Урок 9
Primary tabs
У вас есть три числа (три переменные) найдите их медиану.
var a, b, c:integer; begin readln(a, b, c) ; if ((a<=b) and (b<=c) or (a>=b) and (b>=c)) then writeln('Mediana = ', b) else if ((b<=a) and (a<=c) or (b>=a) and (a>=c)) then writeln('Mediana = ', a) else writeln('Mediana = ', c) ; ReadLn(); end.
- Log in to post comments
- 188 reads