摘要: {ID: anniel11PROG: namenumLANG: PASCAL}Program namenum;var i,n,l:integer; s,s2:string; dicl:array[1..12] of integer; dic:array[1..12,1..2000] of i... 阅读全文
posted @ 2014-09-11 16:27 OmegaIota 阅读(151) 评论(0) 推荐(0) 编辑
摘要: {ID: anniel11PROG: transformLANG: PASCAL}Program transform;Var temp:boolean; c:char; i,j,n,sum,head,tail:longint; map1,map2:array[1..10,1.... 阅读全文
posted @ 2014-09-11 15:28 OmegaIota 阅读(172) 评论(0) 推荐(0) 编辑
摘要: {ID: anniel11PROG: milk2LANG: PASCAL}Program milk2;Var ans1,ans2,i,j,n,sum,head,tail:longint; a:array[1..5000,1..2] of longint; map:array[1..... 阅读全文
posted @ 2014-09-11 14:54 OmegaIota 阅读(169) 评论(0) 推荐(0) 编辑