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

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

Question

Информатика

Андронка

22 сентября, 20:27

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

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

+1

Ответы (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)