Не очень понял задание.
Надо число вывести словами?

Если я сам правильно понимаю, то необходимо при вводе символов вывести цифры.

это типа 1-один, 2-два и тд

Andrey спасибо, что объяснил.
Ну как по мне так всё просто. Берёшь первую цифру, добавляешь к пременной(строка) цифру словом.
Если надо, то могу написать код.

Сообщение отредактировал zver777 - 23.10.2009, 14:34

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

zver777, надо

Ну что-то типа этого.

var
s,f:string;
i,k:integer;
begin
тут надо организовать ввод числа в i
f:=inttostr(i);
for k:=1 to 4 do
begin
case strtoint(f[i]) of
1:s:=s+'один ';
2:s:=s+'два ';
тут надо со всем цифрами сделать
end;
end;
тут вывод результата
end;


Подправил код.
Можно конечно усложнить, т.к. в этом коде числа не будут изменятся( будет не триста пятьдесят девять, а три пять девять)ю

Сообщение отредактировал zver777 - 23.10.2009, 14:48

препод немного по другому объяснял. в тетради так написал мне:
введено x=1237
результат:
а='1'
b='2'
c='3'
d='7'
1 число х разбить на цифры x1,x2,x3,x4
а= chr(x1+48);
далее с другими цифрами, но суть я не пойму.

Сообщение отредактировал piligrim - 23.10.2009, 14:58

Так надо чтоли каждой цифре числа присвоить свою переменную?

Трудно объяснить то, чего сам не понимаешь)
Думаю так, ввел четыре символа, они должны превратиться в четыре цифры.