結果
問題 |
No.239 にゃんぱすー
|
ユーザー |
![]() |
提出日時 | 2016-07-28 21:39:37 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 4 ms / 2,000 ms |
コード長 | 586 bytes |
コンパイル時間 | 156 ms |
コンパイル使用メモリ | 32,768 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-11-06 18:14:37 |
合計ジャッジ時間 | 1,254 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 33 |
ソースコード
integer::N character(30),allocatable::A(:,:) character(30),parameter::nyanpass='nyanpass ' character(30),parameter::skip='- ' logical::renge integer::indx=0,i read *,N allocate(A(N,N)) read *,A do i=1,N renge = ALL(A(i,:).eq.nyanpass.or.A(i,:).eq.skip) if(renge.eqv..true.) then if(indx.ne.0) then indx = 0 exit else indx = i end if end if end do if (indx.ne.0) then print '(i0)',indx else print '(a)', "-1" end if end program