Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядке убывания.
Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядке убывания.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы