@Joseg, creo que lo he arreglado:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 idx-1 pic 9(4) comp-5.
01 wsomamodelos pic 9(18) comp-5.
LINKAGE SECTION.
01 LNK-DATOS.
05 LNK-INPUT PIC X(3000).
05 filler redefines LNK-INPUT.
10 byte occurs 750 pic 9(8) comp-5.
05 LNK-OUTPUT PIC 9(18).
PROCEDURE DIVISION USING LNK-DATOS.
move 1 to idx-1
move 0 to LNK-OUTPUT, wsomamodelos
perform until idx-1 > 750
COMPUTE wsomamodelos = wsomamodelos + byte(idx-1) * idx-1
add 1 to idx-1
end-perform
MOVE wsomamodelos to LNK-OUTPUT
display LNK-OUTPUT
Es que estábamos tontos macho, con la SUMA no vale, y lo sabemos desde el cole
Citación del post de Mates Básicas
|
❞
Propiedad conmutativa de la suma: cambiar el orden de los sumandos no altera la suma
|