1-100の足し算を一番ひどいコードで書いた奴が優勝

[319 仕様書無しさん 2014/05/11(日) 08:04:17.57]

>>1　　　1から100の足し算結果を出力

COBOLで。

01 I PIC 9(100).
01 J PIC 9(100).

MOVE ZERO TO J.
PERFORM VARYING FROM 1 BY 1 UNTIL I > 100
COMPUTE J = J + I
END-PERFORM.
DISPLAY J.