提出 #3017133


ソースコード 拡げる

Copy
var
 i,n,m,j,y,k,x:longint;
 s,s1:string;
begin
 readln(n,m);
 for i:=1 to n do
  begin
   readln(s);
   for j:=1 to m-1 do
    begin
     x:=pos(' ',s);
     s1:=copy(s,1,x-1);
     if s1='snuke' then begin y:=i;k:=j; end;
     delete(s,1,x);
    end;
   if s='snuke' then begin y:=i;k:=j; end;
  end;
 writeln(chr(k+64),y);
end.

提出情報

提出日時
問題 A - Where's Snuke?
ユーザ luogu_bot5
言語 Pascal (FPC 2.6.2)
得点 100
コード長 348 Byte
結果 AC
実行時間 0 ms
メモリ 128 KB

コンパイルエラー

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

ジャッジ結果

セット名 sample all
得点 / 配点 0 / 0 100 / 100
結果
AC × 2
AC × 11
セット名 テストケース
sample sample-01.txt, sample-02.txt
all sample-01.txt, sample-02.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, sample-01.txt, sample-02.txt
ケース名 結果 実行時間 メモリ
01-01.txt AC 0 ms 128 KB
01-02.txt AC 0 ms 128 KB
01-03.txt AC 0 ms 128 KB
01-04.txt AC 0 ms 128 KB
01-05.txt AC 0 ms 128 KB
01-06.txt AC 0 ms 128 KB
01-07.txt AC 0 ms 128 KB
sample-01.txt AC 0 ms 128 KB
sample-02.txt AC 0 ms 128 KB