摘要:
水题一道 不解释了= =var a:array[0..10000] of longint; n,m,i,j,k,t,x,y:longint;begin readln(n);readln(m); for i:=1 to n do read(a[i]); k:=0; while ... 阅读全文
摘要:
没被使用的ID谁都有可能会用到;而当匹配后,自己的ID还可以和其他人的换时,即并不能确定两个ID和两个名字的关系时,这两个人的ID均未知。varw:array[1..20,1..20] of boolean;ID:array[1..20] of string;nm,ans:array[1..20] ... 阅读全文
摘要:
细节理解题,注意体感有点问题,p只加一次var codevs,poj:array[0..20] of longint; ans,ci,pi,n,k,p,i:longint;begin readln(n,k,p); for i:=1 to n do read(poj[i]); readln;... 阅读全文