Требуются решения 2х задач.

[anna]

1) Дано целое число. Уменьшить каждую цифру этого числа на 1.
2) Написать программу перевода целых чисел из одной системы счисления в другую. Выбор системы счисления производится пользователем.

[Malice]

1:

var x,j,z:longint;
begin
readln (x); j:=0;
for z:=1 downto 0 do begin
while x>0 do begin
j:=j*10+(x mod 10)-z; x:=x div 10;
end;
j:=j+x; x:=j-x; j:=j-x;
end;
writeln (x);
end.

[anna]

Спасибо за помощь, но это немного не то, что надо.

[Malice]

Почему ? Приведи тогда примеры исходных данных и необходимого результата.

[anna]

Всё это должно быть реализовано для визуального программирования.

[Сильванович Михаил]

А в чем собственно проблема?
Кидаешь на форму 2 Edit'а - один для ввода, другой для вывода; и Button - на, который надо нажать, чтобы выполнялись действия, которые тебе нужны.

procedure DoIt;

	
	

			
				

	
	
var x,j,z:longint;
begin
j:=0;

			
		
x:=StrToInt(Edit1.Text);

	
	

			
				

	
	
for z:=1 downto 0 do begin
while x>0 do begin
j:=j*10+(x mod 10)-z; x:=x div 10;
end;
j:=j+x; x:=j-x; j:=j-x;
end;

			
		
Edit2.Text:=IntToStr(x);
end;

[anna]

Проблема в том, что я не знаю как перебирать разряды цифр. Например число 257, а в ответе должно получиться 146.

[anna]

Спасибо большое!!!

[zetrix]

я бы перевёл число в строку и заменил бы каждый символ строки на символ с кодом ASCII на 1 меньше (0 - исключение, с ним ничего делать не надо)