Пусть в переменной С, имеющей типinteger,записано четырехзначное число. Запишите в...

Question

Пусть в переменной С, имеющей типinteger,записано четырехзначное число. Запишите в пернменную Х, имеющую тип integer ,число, полученное перестановкой первой цифры с третьей цифрой, и второй цифры с четвертой цифрой исходного числа. Например, если дано число 6104, то в ответе получается 461. Если пользуетесь дополнительными переменными то они все имеют тип integer.

Answer 1

var c, x: integer;
begin
  read(c);
  x := c div 100 mod 10 + 10 * (c div 1000) +
        100 * (c mod 10) + 1000 * (c div 10 mod 10);
  write(x)
end.