Submission #1772365


Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n,i,a,b,k,j:Integer;
  p:array of Integer;
  saitan:Boolean;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(n);
    Read(a);
    Readln(b);
    Readln(k);
    SetLength(p,k+2);
    for i := 0 to k - 1 do begin
      Read(p[i]);
    end; 
    p[k]:=a;
    p[k+1]:=b;
    saitan:=True;
    
    for i := 0 to k+1 do begin
      for j := i to k+1 do begin
        if (p[i]=p[j])and(i<>j) then
        saitan:=False;
      end;
    end;
    if saitan then
      Writeln('YES')
    else
      Writeln('NO');  
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Submission Time
Task B - 嘘つきの高橋くん
User nmoxya
Language Pascal (FPC 2.6.2)
Score 100
Code Size 766 Byte
Status AC
Exec Time 1 ms
Memory 256 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 × 5
AC × 29
Set Name Test Cases
Sample subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt, subtask0_sample_05.txt
All subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt, subtask0_sample_05.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt, subtask1_21.txt, subtask1_22.txt, subtask1_23.txt, subtask1_24.txt
Case Name Status Exec Time Memory
subtask0_sample_01.txt AC 0 ms 128 KB
subtask0_sample_02.txt AC 0 ms 128 KB
subtask0_sample_03.txt AC 0 ms 128 KB
subtask0_sample_04.txt AC 0 ms 128 KB
subtask0_sample_05.txt AC 0 ms 256 KB
subtask1_01.txt AC 0 ms 256 KB
subtask1_02.txt AC 0 ms 256 KB
subtask1_03.txt AC 0 ms 256 KB
subtask1_04.txt AC 0 ms 128 KB
subtask1_05.txt AC 1 ms 256 KB
subtask1_06.txt AC 1 ms 256 KB
subtask1_07.txt AC 0 ms 256 KB
subtask1_08.txt AC 0 ms 256 KB
subtask1_09.txt AC 1 ms 256 KB
subtask1_10.txt AC 1 ms 256 KB
subtask1_11.txt AC 1 ms 256 KB
subtask1_12.txt AC 0 ms 128 KB
subtask1_13.txt AC 0 ms 128 KB
subtask1_14.txt AC 0 ms 128 KB
subtask1_15.txt AC 0 ms 128 KB
subtask1_16.txt AC 0 ms 256 KB
subtask1_17.txt AC 0 ms 256 KB
subtask1_18.txt AC 1 ms 256 KB
subtask1_19.txt AC 0 ms 256 KB
subtask1_20.txt AC 1 ms 256 KB
subtask1_21.txt AC 0 ms 256 KB
subtask1_22.txt AC 0 ms 256 KB
subtask1_23.txt AC 0 ms 256 KB
subtask1_24.txt AC 0 ms 256 KB