Submission #3005024

---

Source Code Expand

var
 s,s1:ansistring;
 n,i,j,k,total:longint;
begin
 readln(n);
 readln(s);
 s:=s+' ';
 j:=1;
 for i:=1 to n do
  begin
   k:=pos(' ',s);
   s1:=copy(s,j,k-j+1);
   j:=k+1;
   if (s1='TAKAHASHIKUN') or (s1='Takahashikun') or (s1='takahashikun') or (s1='TAKAHASHIKUN.') or (s1='Takahashikun.') or (s1='takahashikun.')
   then inc(total);
  end;
  writeln(total);
end.

Submission Info

Compile Error

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

Judge Result