fork download
copy 
  1. 	IDENTIFICATION DIVISION.PROGRAM-ID.F.DATA DIVISION.
  2. 	WORKING-STORAGE SECTION. 1 X. 2 A PIC 9(11) OCCURS 110 VALUE 1.
  3. 	2 I PIC 999. PROCEDURE DIVISION. M. MOVE 0 TO A(1)ADD 1 TO I
  4. 	DISPLAY A(1+I)(FUNCTION INTEGER(12 -FUNCTION LOG10(.1+A(1+I))):)
  5. 	COMPUTE A(5+I)=2*A(1+I)+A(I)IF I<100 GO TO M.
  6.  
Success #stdin #stdout 0s 5388KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
1
1
1
2
3
3
3
5
8
9
9
13
21
26
27
35
55
73
80
97
145
201
233
274
387
547
667
781
1048
1481
1881
2229
2877
4010
5243
6339
7983
10897
14496
17921
22305
29777
39889
50338
62531
81859
109555
140565
175400
226249
300969
390685
491365
627898
828187
1082339
1373415
1747161
2284272
2992865
3829169
4867737
6315705
8270002
10651203
13564643
17499147
22855709
29572408
37780489
48562937
63210565
82000525
105133386
134906363
174984067
227211615
292267297
374946112
484874497
629407297
811746209
1042159521
1344695106
1743689091
2252899715
2896065251
3731549733
4832073288
6249488521
8045030217
10359164717
13395696309
17331050330
22339548955
28763359651
37150557335
48057796969
62010148240
https://ideone.com/ok2Ad8
language:
Cobol (gnucobol 2.2.0)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!