結果

問題 No.83 最大マッチング
コンテスト
ユーザー iLL
提出日時 2026-03-05 15:26:00
言語 Fortran
(gFortran 15.2.0)
コンパイル:
gfortran _filename_ -O2 -o ./a.out
実行:
./a.out
結果
WA  
実行時間 -
コード長 652 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,540 ms
コンパイル使用メモリ 38,764 KB
実行使用メモリ 7,720 KB
最終ジャッジ日時 2026-03-05 15:27:20
合計ジャッジ時間 2,144 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2 WA * 1
other AC * 2 WA * 8
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

PROGRAM MAIN
    ! 結局は 1 7 9 だけを使って示せる数字を作っていけばよいのだろう。
    ! というか 5 本あれば 71 が作れるので、 9 は不要では。
    ! 3 : 7
    ! 2 : 1
    IMPLICIT NONE
    INTEGER :: N, A = 0

    READ *, N
    DO WHILE (N > 1)
        SELECT CASE (N)
        CASE (5:)
            A = 10 * A + 7
            N = N - 3
        CASE (4)
            A = 100 * A + 11
            N = N - 4
        CASE (3)
            A = 10 + A + 7
            N = N - 3
        CASE (2)
            A = 10 * A + 1
            N = N - 2
        END SELECT
    END DO
    
    PRINT *, A
END PROGRAM MAIN
0