結果

問題 No.3534 Make Many Fences
コンテスト
ユーザー lotoka
提出日時 2026-07-26 20:48:43
言語 Fortran
(gFortran 16.1.0)
コンパイル:
gfortran-16 _filename_ -O2 -o ./a.out
実行:
./a.out
結果
RE  
実行時間 -
コード長 433 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,842 ms
コンパイル使用メモリ 37,504 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-07-26 20:48:49
合計ジャッジ時間 4,266 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample RE * 1
other RE * 3 TLE * 1 -- * 5
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program main
    integer t, n, m, ans, usen, temp
    
    read *, t
    do i = 0, t
        read *, n, m
        usen = 0
        ans = 3*min(n/4,m/2)
        do
            usen = usen + 2
            temp = 3*min((n-usen)/4,(m+2*usen)/2)
            if (ans > temp) then
                exit
            else
                ans = temp
            end if
        end do
        write (6,fmt='(I0)') ans
    end do
end program main
0