結果
問題 | No.24 数当てゲーム |
ユーザー |
![]() |
提出日時 | 2016-07-31 21:05:45 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 672 bytes |
コンパイル時間 | 278 ms |
コンパイル使用メモリ | 32,256 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-06 21:36:12 |
合計ジャッジ時間 | 823 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
ソースコード
integer::N,i,j,ansinteger,dimension(1:6)::A,B,C,Dcharacter*3,dimension(1:6)::Rinteger::memo(0:9)data memo/10*1/read *, Ndo i=1,Nread *,A(i),B(i),C(i),D(i),R(i)end dodo i=1,Nif(R(i).eq."YES") thendo j=0,9if(j.eq.A(i) .or. &j.eq.B(i) .or. &j.eq.C(i) .or. &j.eq.D(i) ) thenelsememo(j)=0end ifend doelsememo(A(i))=0memo(B(i))=0memo(C(i))=0memo(D(i))=0end ifend dodo i=0,9if(memo(i).eq.1) thenans=iend ifend doprint '(i0)',ansend program