С клавиатуры вводится четырёхзначное натуральное число.

Поменяйте в нём местами первую цифру со второй и третью с четвёр-

той. Затем результат надо вывести на экран. Оператор вывода в про-

грамме должен быть единственным и выглядеть так: writeln (y).

Question

Информатика

Евдокия

26 сентября, 10:47

С клавиатуры вводится четырёхзначное натуральное число.

Поменяйте в нём местами первую цифру со второй и третью с четвёр-

той. Затем результат надо вывести на экран. Оператор вывода в про-

грамме должен быть единственным и выглядеть так: writeln (y).

+3

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