Question

Помоги, пожалуйста, с задачей по Паскалю. Если можно, то с объяснением.
В трехзначном числе x зачеркнули его последнюю цифру. Когда в оставшемся двузначном числе переставили цифры, а затем приписали к ним слева последнюю цифру числа x, то получилось число N. По заданному N найти число x (значение N вводится с клавиатуры, число единиц в N не равно 0, 1<=N<=999)

Answer 1

X = 123
Зачёркиваем последнюю цифру: 12
Меняем цифры местами: 21
Приписываем слева зачёркнутую цифру: 321
N = 321
Значит, чтобы восстановить число x, нужно в числе N переставить все цифры задом-наперёд.



Var N:integer;
Begin
Write('N = ');ReadLn(N);
Write('x = ',N mod 10,(N div 10) mod 10,N div 100);
End.



Пример работы программы:

N = 35
x = 530

Answer 2

Разбираем число N на цифры, а затем собираем в нужном порядке:
var n,n1,n2,n3,x:integer;
begin
write('n = ');
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
x:=n3*100+n2*10+n1;
writeln('x = ',x);
end.

Пример 1:
n = 25
x = 520

Пример 2:
n = 823
x = 328