Задача 10.Запросить трёхзначное число и сформировать новое, состоящее из тех же цифр,...

Question

Задача 10.
Запросить трёхзначное число и сформировать новое, состоящее из тех же цифр, расположенных в порядке возрастания.

Answer 1

Program n1;
var a: integer;
procedure sort (a,b,c: integer);
var t: real;
begin
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
t:=((c/100)+(b/10)+a)*100;
writeln('полученное число: ',t);
end;
begin
write('введите число: ');
readln(a);
sort(a div 100,a mod 10,round(((a mod 100)-(a mod 10))/10));
end.