Задание:
Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядкеубывания.
Решение:
Program p; Vara,b,c,i,j,n: Integer; BeginWriteln ('введите три числа'); 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.
Знаете другой ответ?