Question

в трехзначном числе x зачеркнули его последнюю цифру. когда в оставшимся двузначном числе переставили цифры, а затем приписали к ним слева последнюю цифру числа x, то получилось число n. По заданному n найти число x (значение n вводится с клавиатуры, 1 меньше или равно n меньше или равно 99 и при этом число единиц в n не равно нулю) -Паскаль.

Answer 1

Var
n,x:integer;   
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
end.