Дано 4-х значное число. Вывести число, приобретенное перестановкой 1 и 3

Дано 4-х значное число. Вывести число, приобретенное перестановкой 1 и 3 цифр. К примеру: 4321=2341. Безотлагательно! Программка Паскаль. Даю 98 баллов!!!

Задать свой вопрос
1 ответ

var

x : integer;

begin

x:=4321;

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

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт