Выводи нето(

[TAVulator]

Doholyan

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

Например вот так:

const
 i: longint = 123456;
Var
 n: byte;
Begin
 n:=0;
 while i<>0 do
  Begin
   inc(n);
   i:=i div 10;
  End;
 Writeln('Количество цифр в числе: ',n);
End.

[Doholyan]

...а если число будет начинаться с нуля " 0 "...?
а, как тогда обратиться к примеру к цифре....третей или четвертой по счету?

[Doholyan]

в этом примере...как будет заканчиваться цикл....вдруг "0" вообще не будет?

[TAVulator]

...а если число будет начинаться с нуля " 0 "...?

хмм... на сколько помню нули, стоящие слева от числа, в математике отбрасываются... (0123 = 123)

а, как тогда обратиться к примеру к цифре....третей или четвертой по счету?

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

const
 i: longint = 123456;
 m: byte = 5; {номер цифры, которую нужно извлечь}
Var
 n: byte;
 k: longint;
Begin
 k:=i;
 n:=0;
 while i<>0 do
  Begin
   inc(n);
   i:=i div 10;
  End;
 Writeln('Количество цифр в числе: ',n);
 n:=(k div trunc(exp(ln(10)*(n-m)))) mod 10;
 Writeln('Цифра под номером ',m,': ',n);
End.

[TAVulator]

в этом примере...как будет заканчиваться цикл....вдруг "0" вообще не будет?

учитывая, что

i:=i div 10;

то "0" обязательно настанет :-)

[Doholyan]

в четырнацетом вопросе обращения... к "6".....

я не предираюсь к твоему познанию и блистательному алгоретмическому мышлению.....))

но...а вдруг будет ноль...но кпримеру....не будет введно число в (буфер) и приетом был нажат интер....это переменная будет нулем же?

но так думаю нужно создать такую процедуру....что на всякие не штатные ситуации....её не глюкнуло...

[TAVulator]

в #14 речь шла о последней цифре в числе :-)

А у меня еще вопрос... А как вытащить последнее число из integer???
Например из 123456
Вытащить 6

и тоже было решено математически:

x:=a mod 10

но...а вдруг будет ноль...но кпримеру....не будет введно число в (буфер) и приетом был нажат интер....это переменная будет нулем же?

если переменная i в моем примере будет равна нулю, то и переменная n (кол-во цифр в числе) тоже будет равна нулю. Ты это имел ввиду?

но так думаю нужно создать такую процедуру....что на всякие не штатные ситуации....её не глюкнуло...

если не сложно - приведи пример нештатной ситуации?

[Doholyan]

сдаюсь!))))))))