結果

問題 No.959 tree and fire
ユーザー さとみんさとみん
提出日時 2019-12-30 01:45:51
言語 Fortran
(gFortran 14.2.0)
結果
WA  
実行時間 -
コード長 734 bytes
コンパイル時間 1,485 ms
コンパイル使用メモリ 30,848 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-06 23:55:10
合計ジャッジ時間 2,293 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 52 WA * 2
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
    implicit none
    
    integer :: n
    integer :: m
    
    integer :: i, j
    
    double precision :: p
    
    double precision :: expected_trees
    
    read *, n, m
    read *, p
    
    if (n == 1) then
        expected_trees = merge(p, dble(m-2) * p**3 + 2.0d0 * p**2, m == 1)
    else
        expected_trees = merge(                                                       &
            dble(n-2) * p**3 + 2.0d0 * p**2,                                          &
            dble(n-2) * dble(m-2) * p**5 + dble(2*n + 2*m - 8) * p**4 + 4.0d0 * p**3, &
            m == 1                                                                    &
        )
    end if
    print *, expected_trees
end program main
0