Submission #3876085
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); 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(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); end; writeln(s); end; end.
Submission Info
Submission Time | |
---|---|
Task | A - 東京都 |
User | luogu_bot5 |
Language | Pascal (FPC 2.6.2) |
Score | 0 |
Code Size | 459 Byte |
Status | WA |
Exec Time | 1 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 | 1 ms | 128 KB |
99_teuchi.txt | WA | 0 ms | 128 KB |