Hướng dẫn giải của Quân bài bị mất


Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.

Tác giả: admin

Var a:array[1..1000000] of longint; i,n,x: longint; Begin readln(n); fillchar(a,sizeof(a),0); for i:=1 to n-1 do begin read(x); inc(a[x]); end; for i:=1 to n do if a[i]=0 then begin write(i); break; end; end.


Bình luận

Hãy đọc nội quy trước khi bình luận.



  • -6
    hoangminhduc2010  đã bình luận lúc 26, Tháng 11, 2023, 12:17

    Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.


    • 1
      cocomelon  đã bình luận lúc 27, Tháng 11, 2023, 4:56

      suy nghĩ dữ chưa:))