解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
変形Fizz-Buzz問題
(Nested
Flatten)
As a reply to the following comment: nantan: お題の一部が飛んでしまっていました。すみ...(#4068) [show]
nantan #4068() [ COBOL ] Rating1/1=1.00
お題の一部が飛んでしまっていました。すみません。書き直してみました。
IDENTIFICATION DIVISION. PROGRAM-ID. FIZZ-BUZZ. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 I PIC 9(2) VALUE 0. 01 DIV PIC 9(2) VALUE 0. 01 REM PIC 9(2) VALUE 0. 01 EDIT PIC Z9. 01 SKIP PIC 9 VALUE 0. PROCEDURE DIVISION. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 20 DIVIDE I BY 15 GIVING DIV REMAINDER REM IF REM = 0 THEN MOVE I TO EDIT DISPLAY EDIT ":FizzBuzz" MOVE 1 TO SKIP END-IF DIVIDE I BY 3 GIVING DIV REMAINDER REM IF REM = 0 AND SKIP = 0 THEN MOVE I TO EDIT DISPLAY EDIT ":Fizz" MOVE 1 TO SKIP END-IF DIVIDE I BY 5 GIVING DIV REMAINDER REM IF REM = 0 AND SKIP = 0 THEN MOVE I TO EDIT DISPLAY EDIT ":Buzz" MOVE 1 TO SKIP END-IF IF SKIP = 0 THEN MOVE I TO EDIT DISPLAY EDIT ":hoge" END-IF MOVE 0 TO SKIP END-PERFORM STOP RUN.Rating1/1=1.00-0+