Помогите с Паскалем!

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

Question

Информатика

Виленина

16 октября, 23:49

Помогите с Паскалем!

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ирма · Answer 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)