結果
問題 | No.253 ロウソクの長さ |
ユーザー |
![]() |
提出日時 | 2016-08-26 22:03:16 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 27 ms / 2,000 ms |
コード長 | 944 bytes |
コンパイル時間 | 1,650 ms |
コンパイル使用メモリ | 31,360 KB |
実行使用メモリ | 25,476 KB |
平均クエリ数 | 35.14 |
最終ジャッジ日時 | 2024-07-17 00:21:23 |
合計ジャッジ時間 | 4,700 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 36 |
ソースコード
program mainimplicit noneinteger,parameter::limit=100integer::upper=10**9+1,lower,midinteger::i,ans,queryinteger,parameter::short=-1,long=1,same=0integer*8::Nquery = 99call ask(query)read *,ansif(ans.eq.same) thenprint '("!",i0)',queryreturnelse if(ans.eq.short) thenquery = 0do i=1,limit-1call ask(query)read *,ansif(ans.eq.same) thenprint '("!",i0)',ireturnend ifend doprint '("!",i0)',queryend iflower = 100do i=1,limit-1mid = (lower+upper)/2query = mid-icall ask(query)read *,ansif(ans.eq.same) thenprint '("!",i0)',i+queryreturnelse if(ans.eq.short) thenupper = midelselower = midend ifend docontainssubroutine ask(query)integer::queryprint '("?",i0)',queryend subroutine askend program main