結果
問題 | No.305 鍵(2) |
ユーザー | jj |
提出日時 | 2016-09-10 22:38:43 |
言語 | Fortran (gFortran 13.2.0) |
結果 |
AC
|
実行時間 | 34 ms / 2,000 ms |
コード長 | 558 bytes |
コンパイル時間 | 264 ms |
コンパイル使用メモリ | 31,232 KB |
実行使用メモリ | 25,220 KB |
平均クエリ数 | 86.69 |
最終ジャッジ日時 | 2024-07-17 00:24:55 |
合計ジャッジ時間 | 1,685 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 34 ms
25,220 KB |
testcase_01 | AC | 34 ms
25,220 KB |
testcase_02 | AC | 31 ms
25,220 KB |
testcase_03 | AC | 30 ms
24,964 KB |
testcase_04 | AC | 30 ms
24,836 KB |
testcase_05 | AC | 32 ms
24,964 KB |
testcase_06 | AC | 23 ms
24,836 KB |
testcase_07 | AC | 31 ms
25,220 KB |
testcase_08 | AC | 31 ms
24,836 KB |
testcase_09 | AC | 29 ms
25,220 KB |
testcase_10 | AC | 32 ms
25,220 KB |
testcase_11 | AC | 31 ms
24,580 KB |
testcase_12 | AC | 31 ms
25,220 KB |
ソースコード
program main implicit none integer::N,query(10),passwd(10),i,j,num data query/10*0/ do i=1,10 num = 0 do j=0,9 query(i) = j call print_query(query) read *,N if(N.eq.10) return if(N.gt.num) then num = N passwd(i) = j end if end do query(i) = passwd(i) end do contains subroutine print_query(query) integer::query(10),i do i=1,10 write (*,'(i0)',advance='no') query(i) end do write (*,*) end subroutine print_query end program main