Составьте программу сортировки по возрастанию значений трех переменных A; B; C

Question

Кирилл Матвеев

Информатика

3 августа, 12:11

Составьте программу сортировки по возрастанию значений трех переменных A; B; C

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Максим Логинов · Answer 1

var

a, b, c: longint;

begin

writeln ('Введите переменную a: ');

readln (a);

writeln ('Введите переменную b: ');

readln (b);

writeln ('Введите переменную c: ');

readln (c);

if (a > b) and (a > c) and (b > c) then writeln (c, b, a) else

if (b > a) and (b > c) and (c > a) then writeln (a, c, b) else

if (c > a) and (c > b) and (a > b) then writeln (b, a, c) else

if (b > a) and (b > c) and (a > c) then writeln (c, a, b) else

if (c > a) and (c > b) and (b > a) then writeln (a, b, c) else

if (a > b) and (a > c) and (c > b) then writeln (b, c, a)

end.