Submission #5784483


Source Code Expand

var
  n,m:int64; 
begin
  readln(n,m);
  if(n<0)and(m>0)then writeln('Zero')else
  if(n>0)and(m>0)then writeln('Positive')else
  if(n<0)and(n<0)then
  begin
    if(m-n+1)mod 2=0 then
      writeln('Positive')else
      writeln('Negative');
  end;
end.

Submission Info

Submission Time
Task A - Range Product
User chenxi2015
Language Pascal (FPC 2.6.2)
Score 200
Code Size 252 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 Subtask1 All
Score / Max Score 0 / 0 100 / 100 100 / 100
Status
AC × 3
AC × 7
AC × 11
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
Subtask1 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 2_00.txt, 2_01.txt, 2_02.txt, 2_03.txt
Case Name Status Exec Time Memory
0_00.txt AC 0 ms 128 KB
0_01.txt AC 0 ms 128 KB
0_02.txt AC 0 ms 128 KB
1_00.txt AC 0 ms 128 KB
1_01.txt AC 0 ms 128 KB
1_02.txt AC 0 ms 128 KB
1_03.txt AC 0 ms 128 KB
2_00.txt AC 0 ms 128 KB
2_01.txt AC 0 ms 128 KB
2_02.txt AC 0 ms 128 KB
2_03.txt AC 0 ms 128 KB