Submission #1972700


Source Code Expand

var
  i,j,h,w:longint;
  s:string[5];
  c:char;
begin
  read(h);
  readln(w);
  for i:=1 to h do
  begin
    for j:=1 to w do
    begin
      read(s);
      if s='snuke' then
      begin
        write(chr(64+j));
        writeln(i);
      end;
      if j < w then read(c) else readln(c);
    end;
  end;
end.

Submission Info

Submission Time
Task A - Where's Snuke?
User masakt
Language Pascal (FPC 2.6.2)
Score 0
Code Size 328 Byte
Status WA
Exec Time 1 ms
Memory 128 KB

Compile Error

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

Judge Result

Set Name sample all
Score / Max Score 0 / 0 0 / 100
Status
AC × 1
WA × 1
AC × 5
WA × 6
Set Name Test Cases
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
Case Name Status Exec Time Memory
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 WA 0 ms 128 KB
01-05.txt WA 1 ms 128 KB
01-06.txt WA 1 ms 128 KB
01-07.txt WA 1 ms 128 KB
sample-01.txt WA 0 ms 128 KB
sample-02.txt AC 0 ms 128 KB