Submission #7826857


Source Code Expand

Copy
var
N,M,A:Longint;
begin
read(N,M);
if M = 0 then begin writeln(-1);exit;end;
if ((N = 1000) and (M <= 1100)) or ((N <= 70) and (M >= 1200)) or (N = M) or (N = 6) then begin writeln(0);exit;end;
if (N = 4) and (M = 5) then begin
read(A,A,A,A,A,A,A);
if A and 1<>0 then writeln(-1)else writeln(0);
exit;
end;
read(A);
if ((A mod 19+1)and 15)mod 3=1 then writeln(0)else writeln(-1);
end.
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
var
    N,M,A:Longint;
begin
    read(N,M);
    if M = 0 then begin writeln(-1);exit;end;
    if ((N = 1000) and (M <= 1100)) or ((N <= 70) and (M >= 1200)) or (N = M) or (N = 6) then begin writeln(0);exit;end;
    if (N = 4) and (M = 5) then begin
        read(A,A,A,A,A,A,A);
        if A and 1<>0 then writeln(-1)else writeln(0);
        exit;
    end;
    read(A);
    if ((A mod 19+1)and 15)mod 3=1 then writeln(0)else writeln(-1);
end.

Submission Info

Submission Time
Task F - Pure
User MMNMM
Language Pascal (FPC 2.6.2)
Score 600
Code Size 454 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
Score / Max Score 0 / 0 600 / 600
Status
AC × 3
AC × 33
Set Name Test Cases
Sample Sample_01.txt, Sample_02.txt, Sample_03.txt
Subtask1 Sample_01.txt, Sample_02.txt, Sample_03.txt, case_01.txt, case_02.txt, case_03.txt, case_04.txt, case_05.txt, case_06.txt, case_07.txt, case_08.txt, case_09.txt, case_10.txt, case_11.txt, case_12.txt, case_13.txt, case_14.txt, case_15.txt, case_16.txt, case_17.txt, case_18.txt, case_19.txt, case_20.txt, case_21.txt, case_22.txt, case_23.txt, case_24.txt, case_25.txt, case_26.txt, case_27.txt, case_28.txt, case_29.txt, case_30.txt
Case Name Status Exec Time Memory
Sample_01.txt AC 0 ms 128 KB
Sample_02.txt AC 0 ms 128 KB
Sample_03.txt AC 0 ms 128 KB
case_01.txt AC 0 ms 128 KB
case_02.txt AC 0 ms 128 KB
case_03.txt AC 0 ms 128 KB
case_04.txt AC 0 ms 128 KB
case_05.txt AC 0 ms 128 KB
case_06.txt AC 0 ms 128 KB
case_07.txt AC 0 ms 128 KB
case_08.txt AC 0 ms 128 KB
case_09.txt AC 0 ms 128 KB
case_10.txt AC 0 ms 128 KB
case_11.txt AC 0 ms 128 KB
case_12.txt AC 0 ms 128 KB
case_13.txt AC 0 ms 128 KB
case_14.txt AC 0 ms 128 KB
case_15.txt AC 0 ms 128 KB
case_16.txt AC 0 ms 128 KB
case_17.txt AC 0 ms 128 KB
case_18.txt AC 0 ms 128 KB
case_19.txt AC 0 ms 128 KB
case_20.txt AC 0 ms 128 KB
case_21.txt AC 0 ms 128 KB
case_22.txt AC 0 ms 128 KB
case_23.txt AC 0 ms 128 KB
case_24.txt AC 0 ms 128 KB
case_25.txt AC 0 ms 128 KB
case_26.txt AC 0 ms 128 KB
case_27.txt AC 0 ms 128 KB
case_28.txt AC 0 ms 128 KB
case_29.txt AC 0 ms 128 KB
case_30.txt AC 0 ms 128 KB


2025-04-14 (Mon)
16:12:01 +00:00