COBOLについて勉強したい！
■ このスレッドは過去ログ倉庫に格納されています
0511仕様書無しさん
2006/10/04(水) 00:27:22PERFORM VARYING A FROM 2 BY 1
UNTIL A > MAX
MOVE 1 TO WK
PERFORM VARYING B FROM 2 BY 1
UNTIL B > A OR
WK = ZERO
MOVE FUNCTION REM(A B) TO WK
IF WK = ZERO
DISPLAY A UPON CONS
END-IF
END-PERFORM
END-PERFORM.
適当に書いてみた
間違ってたらすまん
■ このスレッドは過去ログ倉庫に格納されています