Question

В трехзначном числе зачеркнули его последнюю цифру.Когда в оставшемся двузначном числе переставили цифры , а затем приписали к ним слева последнюю цифру числа х,то получилось число n . Найти число х ( значение n вводится с клавиатуры 1

Answer 1

X - abc
ab
ba
n - bac
\\\\\\\\\\\\\\\\\\\
var
  x, n: integer;
  a: array [1..4] of char; //Пусть тут хранятся символы, 4-ый - буфер для обмена

begin
  readln(n);
  for x := 1 to 3 do
    a[x] := n.ToString()[x]; //Заполняем массив цифрами числа
  a[4] := a[1];
  a[1] := a[2];
  a[2] := a[4];
  x := strtoint(a[1] + a[2] + a[3]); //Переводим "правильный" массив в число
  writeln(x);
end.