結果

問題 No.502 階乗を計算するだけ
コンテスト
ユーザー jj1guj
提出日時 2020-04-19 08:36:53
言語 Fortran
(gFortran 15.2.0)
コンパイル:
gfortran _filename_ -O2 -o ./a.out
実行:
./a.out
結果
TLE  
実行時間 -
コード長 273 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 219 ms
コンパイル使用メモリ 37,120 KB
実行使用メモリ 8,832 KB
最終ジャッジ日時 2026-04-20 08:04:36
合計ジャッジ時間 3,640 ms
ジャッジサーバーID
（参考情報） 		judge2_1 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 32 TLE * 1 -- * 19
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program y502
    implicit none
    integer(8)::n,i,ans
    read*,n
    if(n>=10**9+7)then
        print'(i0)',0
    else
        ans=1
        do i=2,n
            ans=ans*i
            ans=mod(ans,10**9+7)
        end do
        print'(i0)',ans
    end if
end program y502
0