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

Question

Информатика

Анастасей

7 сентября, 00:46

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

+4

Ответы (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.