Question

Дано четырехзначное число. Найти число, образуемое при перестановке второй и третьей цифр заданного числа.

Answer 1

readln(n);
n:=(n div 1000)*1000+((n div 10)mod 10)*100+((n div 100)mod 10)*10+n mod 10;
writeln(n);