Submission #3328545


Source Code Expand

var
 s:string;
begin
 readln(s);
 if (s='AKIHABARA') or (s='AKIHABAR') or (s='AKIHABRA') or (s='AKIHBARA') or (s='KIHABARA') or (s='AKIHABR') or (s='AKIHBAR') or (s='KIHABAR') or (s='AKIHBRA') or (s='KIHABRA') or (s='KIHBARA') or (s='AKIHBR') or(s='KIHABR') or (s='KIHBAR') or (s='KIHBRA'
) or (s='KIHBR') then writeln('YES')
  else writeln('NO');
end.

Submission Info

Submission Time
Task A - AKIBA
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 300
Code Size 361 Byte
Status AC
Exec Time 0 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 300 / 300
Status
AC × 3
AC × 24
Set Name Test Cases
sample sample-01.txt, sample-02.txt, sample-03.txt
All sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, 01-13.txt, 01-14.txt, 01-15.txt, 01-16.txt, 01-17.txt, 01-18.txt, sample-01.txt, sample-02.txt, sample-03.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 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
01-08.txt AC 0 ms 128 KB
01-09.txt AC 0 ms 128 KB
01-10.txt AC 0 ms 128 KB
01-11.txt AC 0 ms 128 KB
01-12.txt AC 0 ms 128 KB
01-13.txt AC 0 ms 128 KB
01-14.txt AC 0 ms 128 KB
01-15.txt AC 0 ms 128 KB
01-16.txt AC 0 ms 128 KB
01-17.txt AC 0 ms 128 KB
01-18.txt AC 0 ms 128 KB
sample-01.txt AC 0 ms 128 KB
sample-02.txt AC 0 ms 128 KB
sample-03.txt AC 0 ms 128 KB