Question

На входе программы имеется натуральное число n (n > 99). В числе n нужно обменять местами цифры сотен и единиц.
Входные данные #1
512
Выходные данные #1
215
Программа для паскаля!!

Answer 1

var

 n: integer;

begin

 readln(n);

 writeln((n div 1000) * 1000 + (n mod 1000 mod 10) * 100 + (n mod 1000 mod 100 div 10) * 10 + (n mod 1000 div 100))

end.