С клавиатуры вводится четырёхзначное натуральное число.Поменяйте в нём местами первую цифру

С клавиатуры вводится четырёхзначное натуральное число.
Поменяйте в нём местами первую цифру со 2-ой и третью с четвёр-
той. Потом итог надобно вывести на экран. Оператор вывода в про-
грамме должен быть единственным и смотреться так: writeln(y).

Задать свой вопрос
1 ответ
Var n,y:integer;    
      a,b,c,d:integer;
Begin
readln(n);
a:= n div 1000;
b:= n div 100 - a * 10;
c:= n div 10 - a * 100 - b * 10;
d:= n mod 10;
y:= b*1000 + a*100 + d*10 + c;
writeln(y);
end.

Пример: 4295 (5290)
Вывод: 2459 (2509)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт