Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядке убывания.

Question

Информатика

Андрюня

13 апреля, 04:34

Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядке убывания.

+3

Ответы (1)

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

Алексина · Answer 1

Program p;

Var

a, b, c, i, j, n : Integer;

Begin

Writeln ('введите три числа') ;

Readln (a, b, c) ;

if a>b then if a>c then Writeln (a, c, b)

else Writeln (c, a, b)

else if c>b then Writeln (a, b, c)

else Writeln (b, c, a) ;

Readln;

End.