結果

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

ソースコード

diff #
raw source code 

PROGRAM MAIN
    IMPLICIT NONE
    INTEGER(kind=8) :: 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((C * X + D) / DBLE(M))
            IF (ANS > ANSMAX) ANSMAX = ANS
        END DO
        PRINT("(I0)"), ANSMAX
    END DO
END PROGRAM MAIN
0