Большие цифры

 

Вернулся к старой задаче, которая может пригодиться. Сразу программа не заработала, остановился на коде:

Global Dim d(100)
Global tc
;zero values
For i=0 To 99
  d(i)=0
Next i
d(0)=9
d(1)=9
;d(2)=9
ci=1;count digits -1
For t=0 To 42
  
  s.s=""
  For k=0 To ci
    s=Str(d(k))+s
  Next k
  Debug s
  n=1
  ii=0
  Repeat
    n=n+d(ii)
    d(ii)=n%10
    n=Int(n/10)
;     If n And d(ii+1)<>0
;       ci+1
;     EndIf
    ii+n
  Until n=0
  
  If ci<ii
    ci=ii
  EndIf
;  ii=incd(0)
Next t

Дополнение. demo