摘要: 水题一道 不解释了= =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 ... 阅读全文
posted @ 2015-09-20 18:38 ROLL-THE-FIRST 阅读(97) 评论(0) 推荐(0) 编辑
摘要: 没被使用的ID谁都有可能会用到;而当匹配后,自己的ID还可以和其他人的换时,即并不能确定两个ID和两个名字的关系时,这两个人的ID均未知。varw:array[1..20,1..20] of boolean;ID:array[1..20] of string;nm,ans:array[1..20] ... 阅读全文
posted @ 2015-09-20 18:34 ROLL-THE-FIRST 阅读(150) 评论(0) 推荐(0) 编辑
摘要: 细节理解题,注意体感有点问题,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;... 阅读全文
posted @ 2015-09-20 18:33 ROLL-THE-FIRST 阅读(114) 评论(0) 推荐(0) 编辑