結果

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

ソースコード

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