Ну ок. Паскаль не помню и не хочу вспоминать.


// ввели число n
...............

public static int parseNum(int n) {
int result = 0; // результирующее число
int sign = (n > 0) ? 1 : -1; // переменная, кот. отвечает за знак. если число положит.,то 1, иначе -1
int des = 1;// переменная, отвечающая за степень 10 при восстановлении результирующего числа
n = Math.abs(n); // возьмем исходное число по модулю, тк его знак мы уже учитываем
while (n > 0) {
int ch = n % 10; // отщепляем с конца очередную цифру
if (ch != 1) { // если она не 1, то спокойно приписываем к результату, домножив на соотв. степень 10
result += ch * des; //result = result+ ch*des;
des *= 10;
}
n /= 10;
}
return sign * result;// получаем новое число с учетом знака
}


***
a+=b <-> a=a+b
a*=b <-> a=a*b и т.д.
.......................
/ - это div
% - это mod