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

Question

Информатика

Митяша

12 июня, 16:02

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

+3

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