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

Question

Информатика

Евфимий

29 июля, 21:29

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

+4

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