Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль

Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль
Гость
Ответ(ы) на вопрос:
Гость
var a,b,c,max,min:longint; begin read (a,b,c); if ((a>b) and (a>c)) then max:=a else if ((b>a) and (b>c)) then max:=b else if ((c>b) and (c>a)) then max:=c; if ((a
Не нашли ответ?
Ответить на вопрос
Похожие вопросы