Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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