結果

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

ソースコード

diff #

program main
    implicit none
    
    integer(8) :: n
    integer(8) :: m
    
    integer(8) :: 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