結果

問題 No.3397 Max Weighted Floor of Linear
コンテスト
ユーザー ねじくぎ
提出日時 2025-12-04 16:28:09
言語 Fortran
(gFortran 14.2.0)
結果
WA  
実行時間 -
コード長 369 bytes
記録
コンパイル時間 1,862 ms
コンパイル使用メモリ 44,300 KB
実行使用メモリ 15,940 KB
最終ジャッジ日時 2025-12-04 16:28:16
合計ジャッジ時間 6,704 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1 WA * 1 TLE * 1
other -- * 23
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

PROGRAM MAIN
    IMPLICIT NONE
    INTEGER :: T, N, M, A, B, C, D, X, I, ANS, ANSMAX

    READ(*,*) T
    DO I = 1, T
        ANSMAX = 0
        READ(*,*) N, M, A, B, C, D
        DO X = 0, N - 1
            ANS = A * X + B * FLOOR(REAL((C * X + D) / M))
            IF (ANS > ANSMAX) ANSMAX = ANS
        END DO
        PRINT"(I0)", ANSMAX
    END DO
END PROGRAM MAIN
0