Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль
Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы