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

Question

Информатика

Эммануилыч

8 августа, 02:25

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

+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.