結果
| 問題 | No.415 ぴょん |
| ユーザー |
 jj
|
| 提出日時 | 2016-08-26 22:42:47 |
| 言語 | Fortran (gFortran 13.2.0) |
| 結果 |
WA
|
| 実行時間 | - |
| コード長 | 365 bytes |
| コンパイル時間 | 747 ms |
| コンパイル使用メモリ | 31,744 KB |
| 実行使用メモリ | 790,396 KB |
| 最終ジャッジ日時 | 2024-04-25 21:37:44 |
| 合計ジャッジ時間 | 3,765 ms |
|
ジャッジサーバーID （参考情報） |
judge5 / judge2 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | WA | - |
| testcase_01 | AC | 1 ms
6,812 KB |
| testcase_02 | WA | - |
| testcase_03 | MLE | - |
| testcase_04 | -- | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
| testcase_16 | -- | - |
| testcase_17 | -- | - |
| testcase_18 | -- | - |
| testcase_19 | -- | - |
| testcase_20 | -- | - |
| testcase_21 | -- | - |
| testcase_22 | -- | - |
| testcase_23 | -- | - |
| testcase_24 | -- | - |
| testcase_25 | -- | - |
| testcase_26 | -- | - |
ソースコード
program main
implicit none
integer*8::N,D,i,curr,next,total
integer,allocatable::ashiba(:)
read *,N,D
allocate(ashiba(0:D))
ashiba = 1
curr = 0
total = 0
do i=1,D
ashiba(curr) = 0
total = (N-curr)/D + total
next = MOD(curr+(N/D+1)*D,N)
if(ashiba(next).eq.0) exit
curr = next
end do
print '(i0)',total
end program main