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

rootiopa2 rootiopa2    3   13.07.2019 12:50    0

Ответы
ROMA706 ROMA706  03.10.2020 02:56
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<b) and (a<c)) then min:=a else
if ((b<a) and (b<c)) then min:=b else
if ((c<b) and (c<a)) then min:=c;
write (min,' ',max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика