Submission #3876107

Source Code Expand

var
 t,i,x,y,s:longint;
 p:boolean;
 a:string;
begin
 readln(t);
 for i:=1 to t do
   begin
     p:=true;
     s:=0;
     readln(a);
     while x<length(s) do 
       begin
        if (a[x]='t') and (a[x+1]='o') and (a[x+2]='k') and (a[x+3]='y') and (a[x+4]='o') then inc(s)
        else 
        if (a[x]='k') and (a[x+1]='y') and (a[x+2]='o') and (a[x+3]='t') and (a[x+4]='o') then inc(s);
        x:=x+4;
       end;
     writeln(s);
   end;
end.

Submission Info