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

Question

Информатика

Севастьян

10 сентября, 17:32

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

+4

Ответы (1)

Знаешь ответ?

Павлиныч · Answer 1

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
if ((b
if ((c
write (min,' ', max);

end.