Написать программу для упорядочения чисел a, b, c по возрастанию. Таким образом, что а соответствует наименьшему, b среднему, c наибольшему.

Question

Информатика

Хаврония

16 апреля, 20:52

Написать программу для упорядочения чисел a, b, c по возрастанию. Таким образом, что а соответствует наименьшему, b среднему, c наибольшему.

+1

Ответы (1)

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

Савелла · Answer 1

Var a, b, c, t: integer;

begin

readln (a, b, c) ;

if (a > b) then

begin

t : = a;

a : = b;

b : = t;

end;

if (b > c) then

begin

t : = b;

b : = c;

c : = t;

end;

if (a > b) then

begin

t : = a;

a : = b;

b : = t;

end;

writeln (a, ' ', b, ' ', c) ;

end.