这是一种程序,能自动AC很多题 部分代码: Program Captain; Var a,b,c,id,n,m,l,i:longint;//搜索到想要的答案 s:string;//用来保存打开输出答案的文件名这里写代码片这里写代码片 ans:ansistring;//读入应该输出的答案 Begin Assign(input,'*****.in'); Reset(input); Assign(output,'*****.out');//星号是题目名,out可以改成ans Rewrite(output);