Submission #2868492
Source Code Expand
var i,j,k,m,n:longint; s:string; begin read(n); while n<>0 do begin m:=n mod 10; n:=n div 10; if m=9 then begin write('Yes');halt;end; end; write('No'); end.
Submission Info
Submission Time | |
---|---|
Task | A - September 9 |
User | luogu_bot3 |
Language | Pascal (FPC 2.6.2) |
Score | 100 |
Code Size | 190 Byte |
Status | AC |
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 | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample01.txt, sample02.txt, sample03.txt |
All | 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, sample01.txt, sample02.txt, sample03.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 0 ms | 128 KB |
02.txt | AC | 0 ms | 128 KB |
03.txt | AC | 0 ms | 128 KB |
04.txt | AC | 0 ms | 128 KB |
05.txt | AC | 0 ms | 128 KB |
06.txt | AC | 0 ms | 128 KB |
sample01.txt | AC | 0 ms | 128 KB |
sample02.txt | AC | 0 ms | 128 KB |
sample03.txt | AC | 0 ms | 128 KB |