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 |
|
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 |