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

Вопрос школьника по предмету Информатика

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

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

Ответ учителя по предмету Информатика

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.