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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт