Question

ПРОГРАМИРОВАННИЕ В ПАСКАЛЕ.Вводится двухзначное число. Упорядочить цифры в нём по возрастанию. Вывести результат на экран.
Пример Ввод: 64 Вывод: 46 Ввод: 23 Вывод: 23

P.s.: Вводится одно число – N (от 10 до 99). Выводится результат – новое число. Дополнительных переменных нет!

Answer 1

Var
a,b,c:integer;
begin
writeln('Vvedite chislo ot 10 do 99');
readln(c);
a:=c div 10;
b:=c mod 10;
if b>a then writeln(c) else
begin
c:=b*10+a;
writeln(c);
end;
end.