Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 ((aif ((bif ((cwrite (min, ,max);
end.