Submission #3876075


Source Code Expand

var
 t,i,x,y,s1,s2:longint;
 p:boolean;
 a:string;
begin
 readln(t);
 for i:=1 to t do
   begin
     p:=true;
     s1:=0;
     s2:=0;
     readln(a);
     for x:=1 to length(a)-4 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(s1);
        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(s2);
       end;
     if s1>s2 then writeln(s1)
              else writeln(s2);
   end;
end.

Submission Info

Submission Time
Task A - 東京都
User luogu_bot3
Language Pascal (FPC 2.6.2)
Score 0
Code Size 512 Byte
Status WA
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 All
Score / Max Score 0 / 100
Status
WA × 3
Set Name Test Cases
All 10_random_to_kyo.txt, 20_noised_tokyoto.txt, 99_teuchi.txt
Case Name Status Exec Time Memory
10_random_to_kyo.txt WA 0 ms 128 KB
20_noised_tokyoto.txt WA 0 ms 128 KB
99_teuchi.txt WA 0 ms 128 KB