В трехзначном числе x зачеркнули его вторую цифру. Когда к

образовавшемуся двухзначному числу справа приписали вторую цифру числа x, то получилось число n. По заданному n найти число x

(значение n вводится с клавиатуры).

Если внимательно прочитать условие задачи, то становится понятно, что вторая цифра числа меняется с третьей и нужно поменять их снова.

var

a, b, c, n, x: integer;

begin

Write ('Введите число n - > ') ;

Readln (n) ;

a : = n div 100;

c: = (n div 10) mod 10;

b:=n mod 10;

x:=100*a+10*b+c;

Writeln (x) ;

end.

Тестовое решение:

Введите число n - > 482

428