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
AC × 3
AC × 9
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