Выводи нето(

[TAVulator]

Xcopy, a:=123456 mod 10;
в результате в а будет 6
и так с любым числом, не только с 123456

[Xcopy]

puporev, мля... оказывается я тупей, чем я думал сам... СПАСИБО.

[Xcopy]

................................... .................................

[Doholyan]

если тебе нужны будут количество цифр...тогда тип должен быть string...
потом с помощью Length(переменная snring) узнаеш сколько символов в строке...и выбирай та котороя тебе нужна....а, с помощью VAL превращай в real и делай с ней уже матиматические задачи....
Или эту процедуру...только наоборот
integer в string (количесто символов) потом с помощью STR обратно в число....

[puporev]

с помощью VAL превращай в real

Зачем в реал, если это цифры и целые числа?

[Doholyan]

puporev
________
функция VAL.... она только и может преводить только в REAL .....
но с ReAL легко перевести в integer с помощью INT

[puporev]

функция VAL.... она только и может преводить только в REAL .....

С какой это стати. Если
t:integer;
то val(s,t,c); передаст в переменную t целое число, если
t:real;, то вещественное.

[Doholyan]

puporev
_____
если ты имел ввиду...вообще зачем переводить!!!
То как можно найти в числе нужное количество цифр?!
Вот я и подумал...что легше всего перевести число в строки...найти количество символов(цыфр)...и перевести обратно в числовой тип.....
мне так показалось проще

[puporev]

Из справки

Val (процедура)
----------------
Преобразовывает строковое значение в его
числовое представление.

Объявление:
Procedure Val(S; Var V; Var Code : Integer);

Где:
S - переменная со строковым типом. Должна представлять
последовательность символов, формирующих знаковое целое число.
V - переменная типа Real или Integer
Code - переменная типа Integer

[Doholyan]

puporev
___________
Даа... извеняюсь......!
VAL- (преобразует строковый аргумент в его числовое предстовления)